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Preface 


The  purpose  of  this  study  was  to  develop  an  inter¬ 
active  statistical  tutorial  package,  which  is  called  the 
ISTP.  This  research  was  initiated  to  demonstrate  an 
alternative  pedagogy  for  teaching  statistics.  The  ISTP 
was  developed  because  traditional  approaches  to  statistical 
education  rely  too  heavily  on  using  mathematics  to  moti¬ 
vate  student  comprehension  of  fundamental  concepts. 

In  developing  the  ISTP  and  writing  this  thesis 
I  have  had  a  great  deal  of  help  from  my  thesis  advisor 
Dan  Reynolds.  A  note  of  thanks  and  appreciation  is 
extended  to  Rich  Lamb  for  his  mathematical  advice  and  con¬ 
sultation  throughout  the  period  of  developing  the  ISTP 
and  writing  of  this  thesis.  Without  such  help  this 
research  would  not  have  been  possible.  Any  questions 
regarding  the  ISTP  should  be  addressed  to  Professor 
Dan  Reynolds,  AFIT/ENC,  AV  785-4185. 

Finally,  special  love  and  appreciation  are  offered 
to  my  wife,  Hyeja,  and  my  daughter,  Minyung,  for  their 
deep  understanding  and  assistance  through  the  countless 
days  and  nights  of  this  research  and  AFIT  program. 
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Abstract 

/  1 

This  -research  demonstrated  the  feasibility  of  an 
alternative  pedagogy  offered  by  the  ISTP:  one  that  empha¬ 
sizes  visual  presentation  and  mastery  of  statistical  con¬ 
cepts  in  lieu  of  the  traditional  theorem-proof  approach 
to  learning  statistics. 

Four  statistical  topics  were  selected  for  the  ini¬ 
tial  implementation  of  the  ISTP:  probability  distributions, 
maximum  likelihood  estimation,  transformation  of  random 
variables  and  hypothesis  testing.  These  areas  were  chosen 
because  they  are  the  main  concern  of  a  first  course  in 
statistics. 

The  ISTP  was  designed  to  provide  an  intuitive 
pedagogy  rather  than  to  present  statistics  in  a  cook-book 
fashion.  The  user  is  encouraged  to  think  while  using  the 
ISTP  and  to  relate  the  results  of  the  ISTP  to  concepts  of 
statistics. 

The  ISTP  is  hierarchically  constructed  so  that  the 
beginner  can  use  this  package  by  taking  advantage  of  menu 
options.  For  the  experienced  user,  it  provides  direct 
macro  selection.  Furthermore,  the  more  sophisticated  user 
can  develop  his  own  library  of  macros  to  add  to  those  which 
already  exist  in  the  ISTP. 

Further  research  should  attempt  to  enhance  current 
subject  matter  and  take  advantage  of  graphics  facilities 


such  as  color  graphics,  animation,  and  windowing.  More 
specifically,  research  needs  to  be  conducted  on  subjects 
covered  by  current  topic  areas  as  well  as  more  advanced 
subjects  such  as  axiomatic  probability,  Bayesian  statis¬ 
tics,  and  multivariate  probability  distributions.  Finally 
consideration  should  be  given  to  porting  the  entire  ISTP 
package  to  super  computers  to  cope  with  the  computational 
needs  of  forthcoming  graphic  packages. 


DEVELOPMENT  OF  THE  INTERACTIVE  STATISTICAL  TUTORIAL 
PACKAGE  { ISTP)  FOR  LEARNING  MATHEMATICAL  CONCEPTS 
OF  PROBABILITY  AND  STATISTICS 

I .  Introduction 

General  Issue 

Traditionally,  statistical  pedagogy  has  promoted 
the  use  of  the  formal  language  of  mathematics  to  teach  con¬ 
cepts  of  probability  and  statistics.  For  most  students, 
this  involves  simultaneous  mastery  of  a  foreign  language 
(mathematics)  and  of  abstract  notions  of  probability  and 
statistics.  This  research  effort  was  initiated  to  demon¬ 
strate  the  feasibility  of  an  alternative  pedagogy:  one  that 
emphasizes  rigorous  visual  presentation  and  mastery  of 
statistical  concepts  in  lieu  of  the  traditional  theorem- 
proof  approach  to  learning  statistics.  It  was  assumed 
that  such  an  approach  would  encourage  early  and  sustained 
motivation  for  the  subject  matter  of  statistics  and  foster 
competent  application  of  statistical  technologies  during 
student  research  efforts. 

Problem  Statement 

Air  Force  Institute  of  Technology  (AFIT)  graduate 
students  need  to  have  statistical  analytic  capabilities 
because  their  thesis  research  often  requires  statistical 
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analyses.  However,  most  students  are  unfamiliar  with  sta¬ 
tistics  when  they  start  their  graduate  programs.  The  tra¬ 
ditional  lecture/ lab  approach  to  teaching  statistics  needs 
to  be  supplemented  because,  in  class,  it  is  difficult  for 
instructors  to  explain  statistical  theory  without  using 
complicated  mathematical  theories  or  formulae.  In  general, 
most  students  cannot  cope  with  such  complicated  mathemati¬ 
cal  presentations.  Fortunately,  the  computer  can  pictori- 
ally  present  statistical  theory  so  that  students  can  under¬ 
stand  the  concepts  of  visualization  rather  than  by 
derivation  of  mathematical  theorems  or  algorithms.  Current 
statistical  computer  packages  usually  facilitate  numerical 
computation  but  offer  little  assistance  to  users  in  under¬ 
standing  concepts,  of  statistics.  Therefore,  a  graphics- 
based  interactive  statistical  computer  package  needs  to 
be  developed  to  provide  such  tutorial  assistance  for  funda¬ 
mental  areas  of  statistics. 

Research  Objectives 

The  goal  of  this  research  was  to  develop  a  proto¬ 
typical  graphics-based  interactive  statistical  package 
that  could  be  used  by  students  in  statistical  courses 
taught  at  AFIT.  It  was  assumed  that  the  Interactive  Sta¬ 
tistical  Tutorial  Package  (ISTP)  could  provide  non- 
mathematical  explanations  of  statistical  concepts  by  uti¬ 
lizing  computer  graphics  and  thus  shield  students  from 
heavy  involvement  with  the  mathematical  detail.  To  achieve 
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the  research  goal,  two  research  objectives  were  established 
(1)  to  select  four  topics  from  the  domain  of  mathematical 
statistics  which  need  to  be  mastered  by  all  graduate  stu¬ 
dents  taking  statistics  courses  at  AFIT,  and  (2)  to  develop 
an  ISTP  that  could  demonstrate  the  feasibility  of  an 
alternative  pedagogy  by  taking  advantage  of  visual  presen¬ 
tations  without  heavy  involvement  with  mathematics. 

Scope  of  the  Research 

The  study  focused  on  making  an  interactive  statis¬ 
tical  tutorial  package  ISTP.  No  formal  attempt  was  made 
to  evaluate  the  effect  of  using  the  ISTP. 

The  ISTP  was  designed  to  address  four  subject 
areas  of  statistics.  Several  prototypical  learning  modules 
were  developed  under  each  of  these  subject  areas. 

The  interactive  statistical  computer  language  S  was 
used  as  the  primary  language  for  developing  software  for 
the  ISTP  because  it  is  currently  available  to  all  students 
at  AFIT.  Furthermore,  compared  to  other  interactive  sta¬ 
tistical  languages,  S  has  many  strengths  that  make  it 
easy  to  learn  and  easy  to  use.  For  example,  it  has  a 
macro-capability  that  allows  users  to  develop  their  own 
libraries  and  excellent  graphics. 

The  ISTP  was  developed  within  the  environment  of 
S  provided  by  AFIT  computer  systems  without  regard  to  its 
portability  to  other  environments. 


Definition  of  Terms 


1.  AFIT  Graduate  Students.  AFIT  graduate  students 
are  those  who  are  enrolled  in  the  Air  Force  Institute  of 
Technology  School  of  Systems  and  Logistics  or  the  Opera¬ 
tions  Research  program  at  the  AFIT  Engineering  School. 
Typically,  they  are  required  to  take  two  or  three  proba¬ 
bility  and  statistics  courses  as  a  part  of  their  program 
and  usually  employ  statistical  technology  during  their 
thesis  research. 

2.  ISTP :  The  Interactive  Statistical  Tutorial 
Package.  The  ISTP  is  a  set  of  prototypical  learning 
modules  developed  to  demonstrate  the  feasibility  of  an 
alternative  pedagogy  for  learning  statistics  by  using  a 
visually-oriented  approach  in  lieu  of  the  traditional 
theorem-proof  approach  of  teaching  statistics. 

ISTP  communicates  with  users.  It  requires  input 
from  the  user  and  gives  output  to  the  user  interactively 
and  dynamically  based  upon  changing  inputs.  Communication 
between  the  user  and  the  computer  is  accomplished  by  menus 
and  printed  messages. 

3.  S:  An  Interactive  Statistical  Computer  Language 
"S  is  an  interactive  environment  for  data  analysis  and 
graphics"  ( 5 : preface, i) .  S  is  designed  to  provide  statis¬ 
tical  computation,  data  management,  and  graphics  output. 

As  an  interactive  language,  it  encourages  real  time  com¬ 
munication  between  user  and  computer  and  thus  can  provide 
each  user  with  efficient  feedback. 


Statistical  packages  such  as  SPSS-x,  BMDP ,  or  SAS 
require  users  to  predetermine  what  procedure  needs  to  be 
run  prior  to  execution  of  the  program.  S,  on  the  other 
hand,  allows  users  to  explore  the  nature  of  data  and  to 
create  a  procedure  concurrently  with  data  analysis. 

Assumptions 

The  first  assumption  is  that  the  need  for  statis¬ 
tical  education  for  AFIT  students'  research  will  continue. 

The  second  assumption  is  that  not  only  statistical 
packages  such  as  SPSS-x,  BMDP,  or  SAS,  but  also  interactive 
statistical  languages  such  as  S,  will  be  used  in  statis¬ 
tics  classes. 

The  third  assumption  is  that  AFIT  graduate  students 
have  a  limited  background  in  statistics  and  generally 
little  experience  with  mathematics  beyond  core  courses  in 
calculus  when  they  start  their  program. 

The  fourth  assumption  is  that  human  beings  prefer 
to  take  a  visually-oriented  approach  to  learning  statis¬ 
tics  rather  than  to  take  a  rigorous  analytic  approach  in 
understanding  statistics,  because  the  visually-oriented 
approach  can  provide  concrete  images  or  visualization  of 
abstract  statistical  concepts. 

Background 

AFIT  graduate  students  have  serious  time  con¬ 


straints  in  their  graduate  programs.  They  have  only  five 


or  six  academic  quarters  and  are  required  to  take  more  than 
sixty  credit  hours,  including  completion  of  a  master's 
thesis . 

Many  AFXT  graduate  students  conduct  their  research 
by  surveys  or  experiments.  Such  procedures  require  statis¬ 
tical  analyses.  That  is  why  AFIT  graduate  students  have 
to  take  two  or  three  consecutive  probability  and  statis¬ 
tics  courses.  However,  in  some  cases,  graduate  students 
cannot  get  enough  capability  to  apply  statistics  to  their 
research  properly.  Too  much  time  is  spent  on  learning  the 
mathematical  theory  of  probability.  Too  little  time  is 
spent  on  applying  statistics  to  real-world  problems.  The 
fact  that  this  is  not  only  a  problem  for  AFIT  students  is 
confirmed  by  Professor  Welsch  of  the  Massachusetts  Insti¬ 
tute  of  Technology,  who  stated,  "most  users  of  packaged 
programs  are  likely  to  have  only  one  course  in  statistics, 
and  that  one  often  has  a  third  of  the  time  spent  on  proba¬ 
bility"  (19:34). 

The  time  constraint  on  statistics  courses  is  a 
serious  problem,  particularly  when  professors  of  statis¬ 
tics  choose  to  use  mathematical  theories  or  formulae  to 
explain  the  rationale  for  various  statistics.  This  forces 
students  to  review  formal  mathematics  concurrently  with 
their  attempt  to  learn  the  language  of  statistics.  Most 
students  find  this  approach  to  teaching  statistics  counter¬ 
productive  . 
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Clearly,  tradeoffs  must  be  considered  between 
teaching  applied  statistics  and  the  mathematical  theory 
of  statistics.  Neither  can  be  ignored.  Using  the  theorem 
proof  approach  usually  precludes  adequate  coverage  of 
applied  statistical  material.  On  the  other  hand,  too  much 
emphasis  on  a  cook-book  approach  fosters  mindless  use  of 
statistical  methods.  At  this  point,  the  need  for  an  alter¬ 
native  pedagogy  for  learning  statistics  should  be  obvious. 
The  ISTP  provides  such  an  alternative  pedagogy  by  using 
a  graphics-based  approach  to  prompt  the  understanding  of 
statistical  concepts  without  requiring  students  to  involve 
themselves  in  a  mathematical  theorem-proof  approach. 

This  expedition  of  understanding  statistical  concepts  not 
only  provides  students  with  positive  motivation  for  study¬ 
ing  statistics  but  also  allows  students  time  to  apply  sta¬ 
tistics  to  real-world  problems  and  to  learn  how  to  intelli¬ 
gently  use  statistical  packages  such  as  SPSS-x,  BMDP,  and 
SAS. 

When  the  need  for  a  new  approach  to  learning  sta¬ 
tistics  became  apparent,  an  effort  was  made  (1)  to  review 
germane  research  concerned  with  using  computers  for  sta¬ 
tistical  education,  and  (2)  to  determine  whether  any 
tutorial  packages  had  yet  been  developed.  Although  two 
interactive  statistical  packages  were  found,  neither  could 
adequately  meet  all  the  elements  of  the  stated  need. 
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Consequently,  an  effort  was  mounted  to  develop  a  new  sta¬ 
tistical  package  named  the  ISTP  to  fulfill  the  objectives 
of  the  research. 
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V 


Literature  Review  and  Research  Methodolo< 


Literature  Review 

Using  Computer  Packages  for  Statistics.  Many 
instructors  recognize  that  statistical  computer  packages 
are  essential  for  statistics  courses  and  most  of  them 
actually  use  such  computer  packages  in  statistics  classes. 
Professor  Thisted  of  the  University  of  Chicago  recommends 
that  computing  based  on  popular  statistical  software  should 
be  taught  in  the  second  course  of  statistics  in  a  two- 
course  sequence.  His  main  ideas  about  teaching  statistical 
computation  can  be  summarized  as  follows: 

1.  Several  packages  must  be  studied  so  that 
students  learn  to  distinguish  features  of  statistical 
software  in  general  from  peculiarities  unique  to  an 
individual  product.  .  .  . 

2 .  Several  large  data  sets  should  be  examined 
using  the  packages.  .  .  . 

3.  Computational  issues  affect  statistical  prac¬ 
tice;  the  outcome  of  a  research  project  may  depend 
critically  on  the  efficiency  and  numerical  accuracy 
of  algorithms  employed  and  on  the  manner  in  which  a 
large  data  set  is  physically  organized. 

4.  There  are  statistical  issues  unique  to  the 
analysis  of  large  problems  on  computers.  (18:27-28) 

Professor  DuMouchel,  a  professor  of  Applied  Mathe¬ 
matics  at  the  Massachusetts  Institute  of  Technology,  com¬ 
menting  on  Professor  Thisted' s  paper  in  The  American 
Statistician,  states  that  statistical  concepts  should  be 
understood  before  statistical  computation  is  introduced, 
because  comparative  discussions  of  statistical  software 


will  be  beyond  a  student's  comprehension  who  is  still 
struggling  with  fundamental  concepts  like  dispersion, 
sampling,  significance,  and  so  forth  (10:30).  Furthermore 
Professor  DuMouchel  suggests  that  computer  packages, 
especially  interactive  ones,  can  be  very  useful  in  teach¬ 
ing  a  first  course  in  statistics  (10:30).  He  provides  the 
following  example: 

It  is  important,  in  my  opinion,  to  include  inter¬ 
active  computer  use  in  the  very  first  data  analysis 
course,  if  only  to  put  our  best  foot  forward  and  show 
that  statistics  can  be  relevant,  useful,  and  interest¬ 
ing  (even  Fun!).  Many  students  have  told  me  that 
although  they  had  taken  one  course  in  statistics,  it 
did  more  harm  than  good  because  it  confused  and 
frightened  them  and  they  just  wanted  to  start  over. 
Computer  packages,  especially  interactive  ones,  can 
help  the  students  avoid  excessive  focus  on  the  mathe¬ 
matical  procedures,  manipulations,  and  calculations 
required,  and  concentrate  on  the  intuitive,  common 
sense  basis  of  the  various  inferential  techniques  and 
on  the  assumptions  behind  them.  (10:30) 

After  reviewing  Professor  DuMouchel's  comments 
concerning  his  original  paper.  Professor  Thisted  agreed 
that  interactive  packages  are  very  useful,  especially  for 
beginners,  because  "interactive  computing  is  participatory 
and  dynamic;  the  student  must  think,  react,  and  interact. 
What  is  more,  feedback  is  immediate"  (18:35). 

The  above  comments  suggest  that  a  tradeoff  must 
be  made  concerning  the  use  of  statistical  packages.  If 
one  waits  until  the  second  course  before  introducing  the 
statistical  packages,  very  little  time  remains  for  dealing 
with  problems  of  applying  statistics  to  the  real  world. 

On  the  other  hand,  if  one  chooses  to  exploit  computer 


technology  during  the  first  course  concurrent  with  dis¬ 
cussions  about  probability,  theoretical  notions  may  be 
treated  in  such  a  superficial  manner  that  the  student  will 
be  encouraged  to  approach  statistics  in  a  cook-book  fashion 
This  appears  to  pose  an  insoluble  dilemma;  theory  and 
applications  both  need  to  be  covered,  but  cannot  be 
addressed  adequately  using  traditional  pedagogy.  Clearly, 
an  alternative  pedagogy  needs  to  be  proposed  if  the 
dilemma  is  to  be  resolved.  Therefore,  a  search  was  made 
to  see  if  statistical  software  existed  that  could  support 
such  an  alternative. 


Interactive  Statistical  Computer  Package.  During 
the  literature  review  for  this  thesis  two  packages  sur¬ 
faced;  (1)  ISP;  Interactive  Statistical  Programs,  and 
(2)  CLT:  Central  Limit  Theorem  program.  ISP  is  "a  compre¬ 
hensive  system  for  learning  and  teaching  purposes"  (14:140) 

It  is  specially  designed  to  teach  a  basic  statis¬ 
tics  course  to  students  in  social  science  and  manage¬ 
ment  who  have  no  quantitative  background  and  no 
experience  with  computers.  It  enables  teachers  and 
students  to  concentrate  on  statistical  concepts  rather 
than  on  statistical  computations.  Moreover,  provisions 
for  working  with  real  data,  sampling  from  data  sets, 
conducting  simulation,  and  experimenting  with  games 
of  chance  help  to  make  statistics  more  interesting  and 
give  students  a  better  understanding  of  the  nature  of 
uncertainty,  sampling,  variability,  and  statistical 
modeling.  (14:140) 

It  offers  a  use:.-friendly  introduction  to  the  computational 
power  of  statistical  packages. 


CLT  is  a  tutorial-type  package  that  provides  an 
interactive  approach  to  learning  the  central  limit  theorem 
(13:90).  The  purpose  of  the  CLT  program  is  to  illustrate 
the  notion  of  a  limiting  distribution  proposed  by  the 
central  limit  theorem.  It  can  graphically  demonstrate  that 
the  sampling  distribution  of  the  mean  approaches  normality 
as  the  size  of  the  sample  increases.  This  efofort  to 
motivate  a  statistical  concept  by  a  graphics-based  approach 
assumes  that  people,  including  persons  who  have  a  strong 
mathematical  background,  can  understand  a  statistical 
concept  better  by  visual  confirmation  of  its  legitimacy 
than  by  a  formal  mathematical  proof  of  its  truthfulness. 

The  weakness  of  the  CLT  program  is  that  it 
addresses  only  one  of  many  statistical  notions.  The  prob¬ 
lem  with  ISP  is  that,  while  it  encompasses  the  full  breadth 
of  elementary  statistical  theory,  its  presumption  of 
statistical  naivete  on  the  part  of  users  severely  limits 
its  pedagogical  applicability.  To  provide  adequate  cover¬ 
age  for  all  levels  of  pre-statistical  mathematical  compe¬ 
tency,  a  new  package  had  to  be  developed.  Since  this 
package  would  take  a  graphics-based  approach  to  selected 
areas  of  mathematical  statistics,  the  next  part  of  the 
literature  search  involved  finding  justification  for  the 
use  of  graphics  in  the  learning  process. 

Application  of  Graphics .  A  great  deal  of  research 
has  been  accomplished  in  the  area  of  graphics  to  prove  its 
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power  over  verbal  presentation  or  presentation  of  raw  data. 
An  article  by  Maivald  captures  the  essence  of  the  position 
taken  by  this  research.  Maivald  talks  about  the  role  the 
computer  can  play  in  the  generation  of  graphics  images. 

Using  computers  as  image  generators  complements 
the  physiological  properties  of  the  brain  through  the 
computer’s  offering  of  high  speed,  library  access,  and 
its  ability  to  show,  in  color,  the  dynamics  of  the 
observed  phenomenon.  (15:84) 
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She  then  presents  an  example  from  integral  calculus, 
normally  addressed  in  mathematical  terms,  as  it  might  be 


taught  using  a  graphics  approach.  She  defines  velocity 
as  in  Equation  1  (15:83): 
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where  A  is  acceleration  and  T  is  time. 

Next,  she  interprets  velocity  graphically  as  in  Figure  1 
(15:83) . 
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Fig.  1.  Graphical  Interpretation  of  Velocity 
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As  shown  in  Figure  1,  "the  simulated  summation  in 
graphical  mode  is  observed  as  a  gradually  shaded  area  with 
a  tally  running  simultaneously"  (15:83).  Maivald  points 
out  that  the  computer  is  the  best  tool  to  display  dynamic 
phenomenon : 

Computers  have  a  large  structured  memory  and  the 
ability  to  display  graphical  data  in  a  dynamic  condi¬ 
tion  and  thus  can  help  with  the  image  component  of 
complex  code.  They  are  far  superior  to  human  teachers 
in  this  area.  (15:84) 

Although  Maivald  presents  a  cogent  argument  for 
introducing  graphics  presentations  into  the  learning  pro¬ 
cess,  it  is  not  necessarily  true  that  graphics  presenta¬ 
tions  are  better  in  every  case.  Graphics  can  provide 
users  with  trends  of  the  data  or  the  general  ideas  of 
verbal  propositions  but  cannot  facilitate  presentation  of 
exact  data  points  or  precise  mathematical  definitions. 

In  most  cases,  it  complements  non-graphical  modes  of  infor¬ 
mation  display. 

Therefore,  this  research  emphasizes  the  use  of  the 
computer  as  an  image  generator  for  the  new  statistical 
package.  One  of  the  reasons  S  was  selected  as  the  primary 
language  for  the  ISTP  is  that  S  has  many  graphics  functions 
In  the  following  section,  S's  unique  capability  for  such 
graphical  imaging  and  other  types  of  data  analysis  are 
reviewed. 

S  Interactive  Statistical  Language .  As  stated 
before,  "S  is  an  interactive  environment  for  data  analysis 
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and  graphics"  ( 5 : preface , i) .  Since  S  provides  the  user 
with  interactive  computation,  both  simple  and  complex, 
graphic  displays  on  a  wide  variety  of  graphics  devices  and 
many  alternative  ways  to  manage  data  and  data  structures,  S 
is  quite  unlike  most  statistical  packages  among  the  many 
statistical  packages  or  languages  (5:preface, i) .  The 
interactive  computational  function  of  S  shields  users  from 
complicated  mathematical  computations.  The  S  graphics 
functions  provide  pictographic  examples  of  applied  statis¬ 
tical  concepts  for  users. 

For  the  following  reasons,  S  was  selected  as  the 
primary  language  to  develop  the  ISTP  software. 

1.  S  has  many  statistical  functions.  There  are 
ten  continuous  type  distributions  for  which  S  can  directly 
calculate  probabilities  and  quantiles.  It  can  also 
generate  random  deviates  from  these  distributions  (3:6). 
Probabilities  for  discrete  distributions  such  as  the 
Poisson  or  Binomial  can  be  computed  by  S  because  of  the 
relationship  between  the  binomial  distribution  and  the 
beta  distribution  and  between  the  Poisson  distribution  and 
the  gamma  distribution  (3:7).  S  also  has  statistical  func¬ 
tions  for  computing  measures  such  as  the  mean  or  variance 
of  sample  values. 

2.  S  has  a  graphics  capability.  S  can  provide 


histograms,  two-  and  three-dimensional  plots,  and  contour 
plots.  Inexperienced  users  can  use  the  graphic  functions 


easily  by  invoking  default  modes.  Experienced  users  can 
obtain  desired  graphs  by  giving  proper  arguments  instead 
of  default  arguments. 

3.  S  has  a  macro  capability.  The  S  macro  facility 
"allows  new  function-like  operations  to  be  built  up  from 

S  expressions,  and  allows  commonly  used  expressions  to  be 
saved  and  executed  with  a  minimum  of  typing"  (5:155). 

4.  S  allows  the  user  to  create  new  functions.  S 
can  invoke  existing  algorithms  in  FORTRAN  through  an  inter¬ 
face  routine.  Because  it  is  inefficient  to  write  a  macro 
when  the  computation  involves  iterating  over  single  ele¬ 
ments  of  the  data,  creating  new  functions  which  can  use 
external  libraries  such  as  IMSL  in  FORTRAN,  is  a  better 
approach  than  creating  macros  (4:4). 

5.  S  facilitates  guided  access  to  program  modules. 
S  allows  messages  to  be  contained  in  macros  as  well  as 
menu-driven  interfaces.  This  menu  capability  permits  users 
to  use  developed  packages  hierarchically.  By  selecting 
one  or  several  possible  lower-level  menus,  the  user  can 
reach  the  level  he  wants  (5:172). 

Conclusion .  Statistics  plays  a  very  important  role 
in  any  AFIT  graduate  student's  thesis  research.  Before  the 
statistical  computer  packages  such  as  SPSS-x,  BMDP ,  or  SAS 
are  used,  statistical  concepts  related  to  their  use  should 
be  studied.  However,  current  interactive  statistical 


packages  only  partially  meet  the  need  for  a  tutorial  sta¬ 
tistical  package  and  dynamic  presentation. 


Research  Methodology 

The  goal  of  this  research  was  to  develop  a  proto¬ 
typical  graphics-based  interactive  statistical  package. 

To  achieve  this  research  goal,  two  research  objectives 
were  set  up:  (1)  to  select  subjects  from  the  domain  of 
mathematical  statistics,  and  (2)  to  develop  the  ISTP: 
Interactive  Statistical  Tutorial  Package.  In  order  to 
meet  these  objectives,  the  following  methodology  was 
employed. 

Selection  of  Statistics  Subjects.  Four  areas  of 
statistics  were  selected.  These  selected  subjects  were 
probability  distributions,  maximum  likelihood  estimation, 
transformation  of  random  variables,  and  selected  topics 
of  hypothesis  testing.  Clearly,  there  are  more  statistical 
topics  than  the  selected  ones.  However,  the  four  selected 
topics  are  the  main  concern  of  the  first  course  in  mathe¬ 
matical  statistics.  The  justifications  for  selecting  these 
subject  areas  will  now  be  outlined. 

Probability  Distributions .  Probability 
distribution  models  provide  the  foundation  for  all  forms 
of  statistical  estimation  and  testing.  Understanding  of 
probability  distributions  in  terms  of  probability  mass 
functions  (PMFs)  or  probability  density  functions  (PDFs) 


is  fundamental  to  the  study  of  probability  distributions 
in  general.  Generating  random  variates  is  important  to 
Monte  Carlo  simulation  and  goodness  of  fit  testing. 

Maximum  Likelihood  Estimation .  The  maximum 
likelihood  methodology  is  the  most  popular  means  for 
obtaining  point  estimates.  "The  objective  of  point  esti¬ 
mation  is  to  compute  from  the  sample  a  single  number  which 
will  be  our  best  guess  for  the  true  value  of  the  parameter 
under  investigation"  (9:209). 


Point  estimation  is  an  important  topic  in  the  study 


of  probability  distributions.  Because  of  its  importance, 
maximum  likelihood  estimation  was  selected  as  the  second 
topic  of  the  1STP . 

Transformation  of  Random  Variables .  The 
third  topic  selected  for  implementation  for  the  ISTP  was 
transformation  of  random  variables.  It  is  necessary  to 
study  such  a  technique  in  order  to  appreciate  the  deriva¬ 
tion  of  test  statistics  which  are,  in  fact,  functions  of 
random  variables.  Also,  because  the  relationship  between 
distributions  such  as  normal  and  log-normal  can  be  under¬ 
stood  as  the  transformation  of  a  random  variable,  this 
area  was  considered  essential  to  the  initial  implementation 


of  the  ISTP. 


Hypothesis  Testing .  Hypothesis  testing 


was  the  final  area  selected  because  it  plays  a  central  role 
in  all  student  research. 
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Developing  Statistics  Package .  For  each  of  the 
four  subject  areas,  ISTP  routines  were  developed  to  visual¬ 
ize  and  dynamically  display  the  concepts  embodied  by  the 
topical  areas.  The  essential  areas  of  statistical  theory 
encompassed  by  the  learning  modules  of  the  ISTP  addressing 
each  subject  area  are  enumerated  below. 

Elements  of  Probability  Distributions. 


For  most  univariate  distributions  and  for  seme  bivariate 
distributions,  an  attempt  was  made  to  compute  probabili¬ 
ties  and  quantile  values,  generate  random  variates,  and 
display  the  shapes  of  distributions  by  using  PDFs  (PMFs) 
or  cumulative  density  functions  (CDFs) . 

S  has  functions  which  compute  the  probabilities 
and  quantiles  and  generate  the  random  variates  for  most 
univariate  continuous  distributions.  But  there  are  no 
functions  in  S  to  compute  probabilities  or  generate  random 
variates  for  the  univariate  discrete  distributions  or 
bivariate  continuous  distributions.  Although  probabilities 
for  some  univariate  discrete  distributions  can  be  computed 
due  to  the  relationship  to  the  univariate  continuous  dis¬ 
tributions,  S  macros  were  developed  which  could  compute 
the  probabilities  and  generate  random  variates  for  the 
univariate  discrete  distributions  and  bivariate  continuous 
distributions.  This  expanded  existing  S  functions  so  as 
to  provide  a  complete  statistical  package. 


Most  univariate  distributions,  including  both  dis¬ 
crete  and  continuous,  and  some  bivariate  distributions, 
were  studied  in  this  research  in  order  to  compute  their 
PDFs  (PMFs)  and  CDFs,  generate  random  variates,  and  plot 
the  shape  of  each  distribution.  However,  multivariate  dis 
tributions  were  considered  to  be  beyond  the  scope  of  this 
research. 

Elements  of  Maximum  Likelihood  Estimation. 
Estimation  of  population  parameters  using  the  maximum  like 
lihood  method  is  attractive  when  sample  sizes  are  large. 
However,  in  this  research,  sample  sizes  of  one  or  two  were 
studied  because  this  package  focuses  on  the  concept  of 
maximum  likelihood  estimation  rather  than  the  actual  compu 
tation  of  parameter  estimates.  Using  sample  sizes  of 
one  or  two,  computer  graphics  can  provide  meaningful  dis¬ 
plays  of  maximum  likelihood  estimation  in  two  or  three 
dimensions . 

The  graphics  approach  to  maximum  likelihood  esti¬ 
mation  allows  the  user  to  input  reasonable  guesses  which 
substitute  for  parameter  values  that  might  maximize  the 
joint  PMF  or  PDF  for  the  given  sample  and  then  provide  the 
maximum  likelihood  estimation  for  the  parameters  so  that 
the  user  can  have  an  idea  how  good  his  guesses  were. 

Elements  of  Transformation  of  Random 
Variables.  Random  variables  are  transformed  using  a 
graphics  method  that  minimizes  the  user's  exposure  to 


calculus  based  on  techniques  such  as  the  Jacobian  method 
or  method  of  moments. 


In  this  research,  instead  of  integrating  the  PDF 
to  obtain  the  CDF  of  univariate  random  variables,  the  ISTP 
uses  existing  S  functions  or  specially  developed  macros. 
Double  integration  routines  of  the  IMSL  library  were  exe¬ 
cuted  to  obtain  the  CDF  of  bivariate  random  variables. 

Elements  of  Hypothesis  Testing .  Hypothesis 
testing  was  selected  as  a  final  topic  of  the  ISTP.  Popu¬ 
lation  distributions,  sampling  distributions,  test  statis¬ 
tics,  likelihood  ratio  statistics,  the  power  of  tests  and 
the  significance  of  the  test  results  are  displayed  in 
graphic  form. 

From  among  the  many  hypothesis  test  procedures, 
tests  about  the  mean  of  a  normal  distribution  when  the 
standard  deviation  (a)  is  known  and  unknown  were  selected 
for  implementation  in  the  ISTP. 

Overview  of  the  Following  Chapters 

In  Chapter  III,  the  concepts  of  the  four  selected 
areas  and  pedagogical  rationale  used  to  develop  the  ISTP 
are  introduced.  Examples  and  procedures  for  using  the 
ISTP  are  presented  in  Chapter  IV  in  order  to  provide  a 
guide  and  the  necessary  documentation  for  using  the  ISTP. 

In  Chapter  V,  conclusions  about  lessons  learned  during  the 
development  of  the  ISTP  are  drawn  and  recommendations  are 


Implemented 


III.  Rationale  for  the  Pedagogy 

by  the  ISTP 

The  ISTP  was  developed  to  fulfill  the  need  for  a 
graphics-based  tutorial  computer  package  which  could 
foster  understanding  of  statistical  concepts  through  a 
visually-oriented  approach  appealing  to  the  student's 
intuition  rather  than  by  explanations  which  presume  compe¬ 
tency  with  the  core  elements  of  calculus.  Thoughout  this 
chapter,  the  concepts  of  the  four  statistical  areas  covered 
by  the  ISTP  and  the  pedagogical  rationale  used  to  develop 
the  tutorial  software  for  these  concepts  are  introduced. 

The  material  of  this  chapter  lays  the  foundation  for 
presenting  specific  applications  of  the  ISTP  in  Chapter  IV. 

The  chapter  is  arranged  into  four  sections,  dealing 
with  probability  distributions,  maximum  likelihood  esti¬ 
mation,  transformation  of  random  variables,  and  hypothesis 
testing.  Each  section  focuses  on  one  of  the  four  topics 
and  discusses  the  motivation  for  constructing  pedagody  for 
teaching  the  underlying  concepts  associated  with  that 
topic.  The  format  of  procedures  used  to  develop  the  learn¬ 
ing  modules  for  each  topical  element  is  then  outlined. 

This  explication  is  typically  clarified  by  an  accompanying 
illustrative  example. 
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of  the  general  gamma  PDF  in  which  a  =  1  and  B  has  been 
replaced  by  j-"  (9:152).  However,  since  "there  are  gamma 
distributions  which  are  not  Weibull  distributions  and 
vice  versa,"  (9:157)  new  functions  had  to  be  added  to  S  to 
calculate  the  PDF,  the  CDF  and  quantiles  and  to  generate 
random  variates  for  the  Weibull  distribution.  Table  1 
lists  functions  in  S  and  macros  in  the  ISTP  which  compute 
PDFs,  CDFs  and  quantiles  and  generate  random  variates  for 
univariate  continuous  distributions. 

Computation  of  the  PDF  and  the  CDF.  As 
long  as  the  PDF  of  a  random  variable  exists  and  the  CDF 
can  be  expressed  in  closed  form,  the  PDF  and  the  CDF  can 
be  obtained  by  calculation  using  actual  parameters  and/or 
quantile  values.  For  example,  although  S  provides  a 
function  dgamma  to  compute  the  PDF  of  the  gamma  random 
variable  with  one  parameter,  the  so-called  standard  gamma, 
it  is  often  necessary  to  obtain  the  PDF  of  the  gamma  random 
variable  with  two  parameters  displayed  as  Equation  (2) 
(9:150).  Therefore,  the  macro  ?gamfun  was  built  into  the 
ISTP  to  compute  the  density  for  this  two-parameter  gamma 
random  variable. 


where  a  >  0 ,  B  >  0 . 


FUNCTIONS  IN  S  AND  MACROS  IN  THE  ISTP  FOR  UNIVARIATE  CONTINUOUS  DISTRIBUTIONS 


Weibull  ?dweib  I  ?pweib 


Generating  Random  Variates.  Quantile 

values  can  be  computed  and  random  variates  can  be  generated 

by  using  the  inverse  transform  technique  (1:294-300).  An 

algorithm  for  the  inverse  transform  technique,  illustrated 

using  the  exponential  distribution,  follows  (1:294-295): 

Step  1.  Compute  the  CDF  of  the  desired  random  variable 
X.  For  the  exponential  distribution,  the 

CDF  is  F (x)  =  l-e"X'X,  x  >  0. 

Step  2.  Set  F(X)  =  R  on  the  range  of  X.  For  the 
exponential  distribution,  it  becomes 
“  X  X 

1-e  =  R  on  the  range  x  >_  0. 

Since  X  is  a  randan  variable  (with  the  exponen 
tial  distribution  in  this  case) ,  it  follows 
-XX 

that  1-e  is  also  a  random  variable,  here 
called  R.  As  will  be  shown  later,  R  has  a 
uniform  distribution  over  the  interval  (0,1). 

Step  3.  Solve  the  equation  F(X)  =  R  for  X  in  terms 

of  R.  For  the  exponential  distribution,  the 
solution  proceeds  as  follows: 

i  -XX 
1-e  =  R 

-AX  . 
e  =  1  -  R 

-AX  =  In  ( 1-R) 

X  =  ^  In  (1-R)  (3) 

Equation  3  is  called  a  random  variate 
generator  for  the  exponential  distribution. 

In  general,  equation  is  written  as 

X  =  F*1 (R) . 


Step  4.  Generate  (as  needed)  uniform  random  numbers 

Rl,  R2,  R3,  ...  and  compute  the  desired  random 
variates  by 

X,  =  F— 1  ( R .  ) 


For  the  exponential  case, 

F  ^  (R)  =  ( —  1 / X )  ln(l-R)  by  equation  3,  so 
that 

X.  =  ^  in ( 1-R . ) 
i  A  1 

The  same  technique  was  applied  to  generate  Weibull 
deviates  and  triangular  deviates  and  to  compute  quantile 
values  for  their  respective  cumulative  probabilities. 

Univariate  Discrete  Distributions .  Although  S  does 
not  have  any  function  for  discrete  distributions,  PMFs 
for  some  discrete  distributions  are  computable  due  to  their 
relationship  to  other  distributions  in  S.  Relationships 
between  the  binomial  distribution  and  the  beta  distribu¬ 
tion  and  between  the  Poisson  distribution  and  the  gamma  dis 
tribution  enable  the  computation  of  discrete  probabilities 
for  the  binomial  distribution  and  the  Poisson  distribution 
(3:7)  . 

The  relationships  between  the  binomial  distribu¬ 
tion  and  the  beta  distribution  and  between  the  Poisson 
distribution  and  the  gamma  distribution  are  as  follows 
(2:1)  . 

If  X ''binomial  (n,  p)  and  Y~Beta(x+l,  n-x) ,  then 
P(X<x)  =  P  (Y>_p)  .  Therefore, 

P  ( X  <_x )  =  1  -  pbeta(p,  x+1,  n-x) 

P(X>x)  =  1  -  P (Y>p)  =  P (Y<p) ,  where  now 


Therefore, 

P(X>_x)  =  pbeta(p,x,n-x+l) 

P(X=x)  =  P  (X<_x)  +  P(X>x)  -  1.  Therefore, 

P(X=x)  =  pbeta (p,x,n-x+l)  -  pbeta (p,x+l ,n-x) 
For  example,  let  X'binomial (16 ,  0.45),  then 
P  (X>_10)  can  be  found  in  S  via 

>  pbeta (0.45,  10,  7) 

0.124103 

And  P(X=10)  can  be  found  in  S  via 

>  pbeta(0.45,  10,  7)  -  pbeta(0.45,  11,  6) 
0.0754788 

And  if  X^Poisson (m) ,  and  Y~gamma(x,  1),  then 
P(X>x)  =  P(Y<m).  Therefore, 

P(X>x)  =  pgamma(m,x) 

P(X^x)  =  1  -  P(Y<m).  Therefore,  where  now 
Y~gamma(x+l,l) 

P  (X<_x)  =  1  -  pgamma(m,x+l) 

P(X=x)  =  P(Y>m)  +  P(Y<m)  -  1.  Therefore, 

P (X=x)  =  pgamma(m,x)  -  pgamma (m,x+l) 

For  example,  let  X'Poisson (4 . 5 ) ,  then 
P(X£6)  can  be  found  in  S  via 

>  1  -  pgamma (4.5,  7 ) 

0.83105 

P(X=6)can  be  found  in  S  via 

>  pgamma (4. 5,  6)  -  pgamma (4. 5,  7) 

0.1281199 


Table  2  lists  available  macros  in  the  ISTP  that 


compute  PMFs  and  CDFs  and  generate  random  variates  for  the 
univariate  discrete  distributions. 

Computation  of  the  PMF.  Most  PMFs  for 
discrete  distributions  exist.  For  example,  the  PMF  for  the 
binomial  distribution  is  (9:95): 


b(x;n,p) 


,n.  xyi  .n-x 
(X)P  (1-P) 

0 


x  =  0,1,2,...,  n 
otherwise  (4) 


Equation  (4)  for  x=0,  1,  2,  ...,n  can  be  developed  as 
follows,  when  b(x;n,p)  =  Y; 


Y  = 


n! 


x ! (n-x) ! 


(1-P) 


n-x 


=  _ gamma  (n+1) _  .  x  .  ..n-x  , 

gamma (x+1)  •  gamma (n-x+1)  y  y 

Equation  (5)  can  be  replaced  by  Equation  (6) .  The  reason 
the  natural  logarithm  is  taken  on  both  sides  is  that  by 
doing  so  S  can  compute  the  combination  when  n  is  large. 
Any  n  >=  34  will  cause  gamma (n+1)  to  produce  an  overflow 
condition . 

ln(Y)  =  lgamma(n+l)  -  lgamma(x+l)  -  lgamma (n-x+1) 


Equation  (6)  can  be  solved  in  terms  of  Y  to  obtain  the  PMF 
for  the  binomial  distribution; 

Y  =  exp  jlgamma(n+l)  -  lgamma (x+1)  -  lgamma (n-x+1) 

+  x  •  ln(p)  +  (n-x)  •  ln(l-p)j  (7 

Equation  (7)  is  used  in  macro  ?mbin  to  obtain  the  PMF  for 
binomial  distribution.  PMFs  for  other  discrete  distribu¬ 
tions,  such  as  the  negative  binomial,  the  hypergeometric, 
the  uniform,  the  Poisson,  the  Bernoulli,  the  geometric, 
and  the  ReyLam  distribution  were  obtained  using  a  tech¬ 
nique  similar  to  that  used  for  the  calculation  of  the 
binomial  distribution. 

The  ReyLam  distribution  is  essentially  a  point 
multinomial  in  which  random  variables  can  attain  three 
values  and  the  sample  size  is  one.  For  n  =  1,  the  ReyLam 
distribution  is  defined  with  following  PMF: 

P1  x  =  0 

.  .  p2  x  *  1 
P(x)  = 

1 — P  ~  P  2  x  —  2 

0  otherwise 

As  demonstrated  below,  the  computation  for  the  PMF 
of  the  binomial  distribution  and  the  Poisson  distribution 
from  their  macros  provides  the  same  results  as  previously 
obtained  using  the  beta  distribution  and  gamma  distribution 

>  ?mbin(10,  16,  0.45) 

0.075479 


gives  the  same  result  as  using  pbeta(.45,  10,  7) 

-pgamma ( . 45 ,  11,  6). 

>  ?mpoiss(6,  4.5) 

0.1281201 

gives  the  same  result  as  using  pgamma(4.5,  6) -pgamma (4 . 5 ,  7). 

Computation  of  the  CDF.  The  CDF  for  a 
discrete  distribution  is  calculated  by  summing  up  their 
PMFs  as  shown  in  the  following  example  with  the  binomial 
distribution  (9:95): 

For  X^Bintn,?),  the  cumulative  distribution  func¬ 
tion  is  denoted  by 

x 

P(X<x)  =  B ( x ; n , p )  =  I  b(y;n,p),  x=0,l,...,n 

y=0 

Therefore,  once  the  PMF  for  a  discrete  distribution  is 
defined,  the  CDF  can  be  obtained  by  summing  up  its  PMF 
for  the  desired  X.  For  example,  in  the  ISTP,  the  PMF 
function  for  a  binomial  distribution  is  defined  as  macro 
?mbin(x,n,p) ,  where  x  is  the  value  of  the  random  variable, 
n  is  the  number  of  trials,  and  p  is  the  probability  of 
success,  so  that  the  following  method  can  be  used  to  obtain 
the  CDF  for  the  binomial  distribution: 

P  ( x^<_X<_x 2 )  =  sum(?mbin(x^:x2,n,p)  ) 

Another  macro  that  computes  the  CDF  is  defined  in  the  ISTP; 
namely,  ?bin(x1>x^,n,p) . 


The  computation  for  the  CDF  of  the  binomial  and 
Poisson  distributions  provides  the  same  results  as  pre¬ 
viously  obtained  using  the  beta  distribution  and  gamma 
distribution.  For  example, 

>  ?bin(10,  16,  16,  0.45) 

0.1241033 

gives  the  same  result  as  using  pbeta(0.45,  10,  7),  and 

>  ?poiss(0,  6,  4.5) 

0.83105 

gives  the  same  results  as  using  1-pgamma (4 . 5 ,  7). 

Generating  Random  Variates .  The  inverse 
transform  technique,  which  was  used  to  generate  random 
variates  for  continuous  distributions,  can  also  be  applied 
to  generate  random  variates  for  discrete  distributions. 
Recall  that  the  CDFs  of  discrete  random  variables  are  step 
functions,  while  the  CDFs  of  continuous  distributions  are 
continuous  functions.  When  the  inverse  transform  tech¬ 
nique  is  applied  to  generate  random  variates  for  discrete 
distributions,  a  set  of  random  numbers  (R)  which  fall  into 
the  range  of  F(X^_^)  <  R  <_  F(X^)  should  be  mapped  to  X^ 
as  the  value  of  the  random  variate.  This  technique  was 
used  to  generate  random  variates  for  the  Bernoulli,  the 
uniform,  the  hypergeometric  and  the  ReyLam  distribution. 

Binomial  random  variables  are  computed  by  summing 
n  Bernoulli  random  variables. 

Since  values  of  the  random  variables  for  the  geo¬ 
metric  distribution,  the  negative  binomial  distribution, 


and  the  Poisson  distribution  range  from  0  to  infinity, 

exact  PMFs  and  CDFs  are  required  to  obtain  the  accurate 

random  variates.  This  involves  making  a  decision  regarding 

the  level  of  required  accuracy. 

For  the  geometric  distribution,  PMFs  for  random 

variables  from  x  =  0  to  x  =  where  p  is  a  parameter  of 

probability  of  success  for  the  geometric  distribution, 

give  sufficient  accuracy,  because  the  CDF  for  0  <_  x  £  ^ 

is  approximately  1  except  for  the  case  of  very  small  p. 

In  this  case,  PMFs  are  computed  from  0  to  30  instead  of 

from  0  to  — .  For  the  same  reason,  PMFs  for  the  Poisson 
P 

random  variable  are  computed  from  0  to  5A ,  where  A  is  the 
Poisson  parameter,  When  A  is  small,  30  can  replace  5A . 

PMFs  for  the  negative  binomial  random  variables 
are  computed  by  applying  the  binomial  probability  function. 
The  probability  that  R  successes  will  occur  given  R+m 
trials  for  which  each  trial  having  probability  of  success 
equals  p  is  a  binomial  probability,  m  is  the  number  of 
failures  prior  to  the  Rth  success  and  is  a  negative  binomial 
random  variable.  Therefore,  each  PMF  for  m  =  0  to  m  =  »  can 
be  computed,  and  the  sum  of  PMFs  of  the  binomial  random 
variables  for  m  =  0  to  m  =  00  is  where  p  is  the  probabil¬ 
ity  of  success  for  each  trial.  And  the  sum  of  PMFs  for 

R  1 

m  =  0  to  m  =  5  •  —  approaches  —  except  for  small  m,  so 
R 

that  5  •  —  is  replaced  by  30  for  the  case  of  small  m. 

Since  the  maximum  of  the  CDF  accumulates  to  — ,  multiplying 
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p  over  the  CDFs  will  make  the  range  of  the  CDF  0  to  1. 

Then  the  inverse  transform  technique  can  be  applied  to 
generate  random  variates  for  the  negative  binomial  distri¬ 
bution  . 


Bivariate  Continuous  Distributions.  If  two  random 
variables  X  and  Y  are  independent,  the  bivariate  PDF  is 
the  product  of  their  separate  PDFs.  However,  this  is  not 
the  case  when  they  are  dependent,  and  a  very  useful  example 
of  such  a  correlated  model  is  the  bivariate  normal  distribu¬ 
tion  with  correlation  not  equal  0.  In  this  research,  the 
bivariate  normal  distributions  for  dependent  and  indepen¬ 
dent  random  variables  and  the  bivariate  gamma  distribution 
for  independent  random  variables  were  studied  to  explore 
the  properties  and  dynamics  of  bivariate  distributions. 

Table  3  lists  available  macros  which  compute  PDFs  and  CDFs 
and  generate  random  variates  for  these  two  bivariate  con¬ 
tinuous  distributions. 

The  PDF  of  Bivariate  Normal  Distribution. 

The  PDF  of  the  bivariate  normal  distribution  is  (17:492): 


f  (Y!'Y2)  = 


^7Tal°2  V 


l—l  -toy 

(  2(1-pJ2)L\  o1  / 


-  2p. 


P?P?)  *  I 


(8) 


where  and  Y2  are  bivariate  normal  random  variables; 

and  are,  respectively,  the  mean  and  the  standard 
deviation  of  the  marginal  distribution  of  Y^;  y2  an(^  °2 
are,  respectively,  the  mean  and  standard  deviation  of  the 
marginal  distribution  of  Y2;  p^2  is  the  coefficient  of 
correlation  between  random  variables  Y^  and  Y 2-  Using 
Equation  (8) ,  one  can  accommodate  the  computations  of  the 
PDF  of  the  bivariate  normal  distribution  for  both  indepen¬ 
dent  and  dependent  random  variables.  By  replacing  p^2 
with  0,  Equation  (8)  can  be  used  to  compute  the  PDF  of  the 
bivariate  normal  distribution  for  independent  random  vari¬ 
ables;  and  by  giving  any  number  between  -1  and  1  except  0, 
Equation  (8)  can  be  used  to  compute  the  PDF  of  bivariate 
normal  distributions  for  dependent  random  variables. 

The  CDF  of  Bivariate  Normal  Distribution. 
The  computation  of  the  bivariate  normal  CDF  for  two  depen¬ 
dent  random  variables  requires  extensive  amounts  of  time 
in  the  current  S  environment  because  it  involves  double 
integration  using  other  packages  such  as  Macsyma  and  IMSL. 
Evaluating  double  integration  is  very  time  consuming 
because  it  requires  complex  iterative  computations.  Hence, 
the  CDF  construction  was  limited  to  the  independent  case 
only.  The  CDF  of  the  bivariate  normal  distribution  for 
independent  random  variables  is  computed  by  multiplying  the 
CDF s  of  two  independent  random  variables. 
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Generating  Random  Variates  for  Bivariate 
Normal  Distribution.  Random  variates  from  the  bivariate 
normal  distribution  can  be  used  for  simulations  or  regres¬ 
sion  analysis.  An  easy  way  to  generate  random  variates 
for  the  multivariate  normal  distribution  is  introduced  as 
follows : 

Suppose  we  would  like  to  generate  a  sample  of  100 
points  from  a  multivariate  normal  distribution,  with  a 
specified  correlation  matrix,  rho,  a  vector  of 
standard-deviations  for  the  variables,  sd,  and  a  vector 
of  means,  means.  A  good  way  to  accomplish  this  starts 
with  the  correlation  matrix,  formed  by  multiplying  the 
elements  of  the  correlation  matrix  by  the  product  of 
the  row  and  column  standard  deviations.  The  sample 
itself  is  generated  first  as  100  samples  from  the 
standard  multivariate  normal.  Then  we  multiply  by  the 
Choleski  decomposition  of  the  covariance  matrix  and  add 
on  the  means. 

>  var.cov_rho  *  outer (sd,sd) 

>  x_matrix(rnorm(100*len(sd) ) ,100,len(sd) ) 

>  sample_x%*chol (var.cov) + 

matrix (means ,  100,  len(sd),  byrow=T) . 

(5:211) 

The  PDF  of  Bivariate  Gamma  Distribution. 
Since  the  ISTP  provides  the  macro  ?gamfun  for  computing 
the  PDF  of  the  gamma  random  variable  with  two  parameters, 
the  bivariate  PDF  of  independent  gamma  random  variables 
can  be  computed  by  multiplying  two  independent  PDFs. 

The  CDF  of  Bivariate  Gamma  Distribution . 

The  bivariate  CDF  of  two  independent  standard  gamma  random 
variables  can  be  computed  by  means  of  the  pgamma  S  func¬ 
tion.  As  in  the  case  for  the  bivariate  CDF  of  normal 
independent  random  variables,  the  bivariate  CDF  of 


independent  gamma  random  variables  is  computed  by  multiply 
ing  their  separate  CDFs. 

Generating  Random  Variate  for  Standard 
Bivariate  Gamma  Distribution .  Independent  random  variates 
can  be  generated  for  the  standard  bivariate  gamma  distribu 
tion,  because  the  CDF  is  computed  for  the  standard  bivari¬ 
ate  gamma  distribution  for  the  case  of  independent  random 
variables.  A  step-by-step  procedure  for  generating  inde¬ 
pendent  random  variates  for  the  standard  bivariate  gamma 
distribution  is  now  illustrated,  where  F(x,y)  is  the  CDF 
of  the  standard  bivariate  gamma  distribution  for  indepen¬ 
dent  random  variables  X  and  Y,  and  F(x)  and  F(y)  are  the 
CDFs  of  standard  gamma  distributions  for  random  variables 
X  and  Y  respectively: 

Step  1.  Generate  random  numbers,  R,  between  0  and  1. 

Step  2.  Use  R  as  CDF  of  standard  bivariate  gamma  dis¬ 
tribution  for  independent  random  variables  X  and 
Y.  This  can  be  expressed  as  follows: 

F (x,y)  =  R 

Then  the  CDF  of  standard  gamma  distribution  for 
random  variables  X,  F(x),  can  be  arranged  as 
follows : 

R  <  F  (x)  <  1 

Step  3.  Generate  uniform  random  variates  Q,  ranging 

between  R  and  1,  then  use  these  Q  as  the  CDF  of 
standard  gamma  distribution  of  random  variables  X 


R  <  Q  <  1 


Step  4.  Since  CDF  of  standard  bivariate  gamma  distribu¬ 
tion  for  independent  random  variables  X  and  Y  is 
the  product  of  their  separate  CDFs,  CDF  of 
standard  gamma  distribution  for  random  variables 

Y  can  be  defined  as  follows: 

F(x,y)  =  F (x)  F (y) 

F (y)  =  F  (x,y)  /  F(x) 

=  R  /  Q 

Step  5.  From  the  obtained  cumulative  probabilities  of 

random  variables  X  and  Y,  the  random  variables  can 
be  found  as  follows: 

X  =  qgamma(Q,ci^) 

Y  =  qgamma (R/Q, “2^ 

where  and  are  parameters  for  standard  gamma 
distributions . 

Plotting  the  Shape  of  Probability  Distributions. 
Using  the  existing  S  functions  and  macros  of  the  ISTP 
which  compute  PDFs,  PMFs,  or  CDFs  for  probability  distribu¬ 
tions,  the  shapes  of  probability  distributions  can  be 
plotted  in  two-dimensional  space  for  the  univariate  case 
and  in  three-dimensional  space  for  the  bivariate  case. 

For  univariate  probability  distributions,  up  to 
four  distributions  can  be  displayed  simultaneously  with 
different  parameters  so  that  direct  comparison  among  family 
members  can  be  made. 

Shapes  of  bivariate  continuous  distributions  are 
displayed  by  using  the  PDF  and  CDF,  respectively.  The  CDF 
can  only  be  obtained  for  the  bivariate  normal  distributions 
of  independent  random  variables  and  the  standard  bivariate 


gamma  distribution  for  independent  random  variables,  while 
PDFs  can  be  obtained  for  the  bivariate  normal  distribution 
for  both  independent  and  dependent  random  variables  and 
both  standard  (one-parameter)  and  two-parameter  bivariate 
gamma  distributions  for  independent  random  variables. 

The  shape  of  PDFs  is  plotted  in  three-dimensional 
space  accompanied  with  a  contour  plot  in  two  dimensions. 
Shapes  of  CDFs  are  limited  to  the  display  of  bivariate 
normal  distributions  for  independent  random  variables  and 
standard  bivariate  gamma  distributions  for  independent 
random  variables.  Since  these  distributions  are  displayed 
in  three-dimensional  space,  comparison  among  the  family 
members  with  different  parameters  could  not  be  accommodated. 

Although  plotting  the  shape  of  probability  distri¬ 
butions  involves  elementary  graphical  functions  of  S  such 
as  Plot (x,y)  for  a  two-dimensional  plot,  contour (x,y , z) 
for  a  contour  plot,  and  persp ( z)  for  a  three-dimensional 
plot,  it  facilitates  imaging  probability  distributions 
and  enhances  the  understanding  of  probability  distributions 
by  allowing  comparisons  of  members  of  various  families  of 
distributions.  However,  comparison  across  distributions 
is  not  currently  available. 


Table  4  lists  available  macros  covered  by  the  ISTP 
allowing  the  graphics  display  of  probability  distributions. 


TABLE  4 


MACROS  IN  THE  ISTP  FOR  PLOTTING  THE  SHAPE  OF 
PROBABILITY  DISTRIBUTIONS 


UNIVARIATE  DISTRIBUTIONS 

(  ?uvd  ) 

Plot 

PDF  /  PMF 

Comparison 
PDF  /PMF 

Binomial 

?bincm 

Pbinplot 

?ob inplot 

Discrete 

Neg-Bincmial 

?negbincm 

Pnegbinplot 

Ponegbinplot 

Distribution 

Hypergeanetric 

?hypergeo 

Phyperplot 

Pchyperplot 

(  ?dis  ) 

Uniform 

Puniform 

Punifplot 

Pounifplot 

Poisson 

Ppoisson 

Ppoisplot 

Popoisplot 

Normal 

?normal 

Pnomplot 

Pcnormplot 

Uniform 

Pcuniform 

Pcunifplot 

Pocunifplot 

Log-Normal 

Plognorm 

Plnormplot 

Polnormplot 

Continuous 

T 

Ptdis 

Ptplot 

Potplot 

Distribution 

Experiential 

Pexpon 

Pexplot 

Poexplot 

(  ?ccnt  ) 

Gamma 

Pgammaset 

Pgamplot 

Pogamplot 

Weibull 

Pweibull 

Pweibplot 

Pweibplot 

Beta 

Pbetaset 

Pbetaplot 

Pcbetaplot 

Chisquare 

Pchi  square 

Pchisqplot 

Pochisqplot 

F 

Pfdis 

Pfplot 

Pofplot 

BIVARIATE 

CONTINUOUS  DISTRIBUTIONS 

(  Pbvd  ) 

Plot  PDF 

Plot  CDF 

?bicnorm 


Bivariate  Normal 
Independent  Bivariate  Gamma 


Pbinormal  ?binorm 
?bigammaset  Pbigamna 


?bicganma 


Max imum  Likelihood  Estimation 

Traditionally,  too  much  emphasis  has  been  placed 
on  the  computational  mechanics  of  obtaining  maximum  like¬ 
lihood  estimations.  The  ISTP  focuses  alternatively  on  the 
nature  of  the  process  of  maximum  likelihood  estimation  by 
allowing  the  user  to  participate  in  the  process  of  optimi¬ 
zation  and  to  observe  the  physical  consequence  of  parameter 
choices. 

Graphics  Method  of  Maximum  Likelihood  Estimation. 
ISTP's  procedure  for  maximum  likelihood  estimation  assumes 
a  random  sample  of  size  one  or  two  has  been  obtained  from 
a  univariate  discrete  or  univariate  continuous  population. 
The  likelihood  function  is  graphically  presented  and  the 
user  is  asked  to  make  a  guess  at  what  value  the  parameter 
must  assume  for  the  likelihood  function  to  reach  its  peak. 
The  user  can  run  the  program  as  many  times  as  he  wishes. 
After  he  observes  the  consequences  of  his  parameter 
choice  on  any  given  run,  he  can  request  the  true  value  of 
the  maximum  likelihood  estimate  (MLE)  be  displayed.  By 
graphically  participating  in  the  act  of  optimization  he 
receives  visual  confirmation  that  the  MLE  is  that  value  of 
the  parameter  that  maximizes  the  likelihood  of  occurrence 
of  the  sample.  Once  the  student  perceives  the  need  for  a 
heuristic  to  direct  the  search  process,  the  instructor 
can  suggest  to  the  student  that  he  consider  taking  advan¬ 
tage  of  information  contained  in  the  sample.  This  might 


mean  encouraging  the  student  to  compute  estimates  based 
on  functions  of  the  sample  values.  If  the  student  achieves 
optimization  using  a  particular  function,  with  different 
samples,  he  will  be  led  to  the  realization  that  he  has 
discovered  for  himself  an  estimator  that  is  the  MLE.  Such 
a  discovery  can  motivate  a  user's  desire  to  look  for  a 
conceptual  analogue  of  what  is  now  an  intuitively-derived 
notion. 

Tables  5  and  6  list  the  available  macros  for  maxi¬ 
mum  likelihood  estimation. 


Transformation  of  Random  Variables 

Invariably,  presentations  in  mathematical  statis¬ 
tics  rely  heavily  upon  the  calculus  as  a  vehicle  for  teach 
ing  fundamental  concepts  of  probability.  This  is  especially 
true  when  the  notion  of  the  transformation  of  a  random 
variable  is  introduced.  This  causes  the  student  to  focus 
on  the  mechanics  of  the  process  while  providing  little  or 
no  motivation  for  an  intuitive  grasp  of  the  subject  matter. 
The  transformation  methodology  employed  by  the  ISTP,  on 
the  other  hand,  does  not  require  mastery  of  such  exhaustive 
mathematics.  The  student  constructs  the  density  of  the 
transformed  variable  by  using  the  properties  of  the  density 
function  of  a  random  variable.  This  allows  students  to 
concentrate  their  attention  on  the  iterative  mapping  of 
the  regions  under  the  original  PDF  into  their  corresponding 
regions  under  the  PDF  of  the  transformed  variable.  This 


MACROS  IN  ISTP  FOR  MAXIMUM  LIKELIHOOD 
ESTIMATION  OF  CONTINUOUS  DISTRIBUTIONS 


ensures  the  concept  of  the  transformation  of  a  random  vari 
able  remains  the  focal  point  of  the  presentation. 


Graphical  PDF  Method  of  Variable  Transformation. 
Random  variables  can  be  transformed  by  means  of  their  PDFs 
A  step-by-step  procedure  for  the  PDF  method  of  transforma¬ 
tion  follows  using  Y  =  Log(X),  where  X  is  a  normally  dis¬ 
tributed  random  variable  whose  mean  is  y  and  whose 
standard  deviation  is  a. 

Step  1.  Plot  the  transformation  Y  =  Log(X)  to  discover 

if  it  is  one-to-one  or  not,  as  shown  in  Figure  2. 


X 

Fig.  2.  Plot  of  Transformation  Y  =  Log(X) 

Step  2.  Accept  input  to  determine  the  range  of  Y,  and  Ay: 
the  length  of  the  sub-intervals  into  which  the 
range  is  to  be  divided. 

Accept  :  Ys  <_  Y  <_  Ye 

Accept  :  Sub-interval  Ay  length 

Let  Yi  =  Ys  +  Ay  •  (i-1) 


%  *.  N, 
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Step  3.  Compute  the  xi  and  *i+1  corresponding  to  and 


xi  =  exp(yi) 
xi+i = 

Step  4.  Compute  CDFs  at  x^+^  and  x^. 


> 

■/ 


f(x)  dx 


x . 

*\T 


f  ( x)  dx 


Step  5. 


Step  6 


where  f  (x)  ~N  (u  ,o) 

Compute  the  area  under  f(x)  corresponding  to  the 
sub-interval  (t^  t^+^)  which  is  the  area  under 

f (y)  corresponding  to  the  interval  (y^,  y^+i) . 

F<yi+1)  -  F(y±)  =  P(Yi  <  Y<  Yi+1> 

■  p(xi)  i  x  i  xi+i>  *  F(xi+i>  -  F(xi> 

Estimate  the  PDF  of  Y:f(y)  at  y.  by  dividing  the 
area  under  f(y)  corresponding  to  interval 

(yi'  yi+l)  by  Ay* 


f (y±)  = 


F(yi+i)  ‘  F(yi} 


Note  that: 


F(yi+1)  ‘  F(yi) 
lim  - - i  =F'(y) 

Ay^-0  Ay  1 

F<yi+Ay)  -  F (y . ) 

lim  - i - j- - -  -  F'  (Yi)  -  f  (Yi) 

Ay-*-0  Ay 


"  h 


s'.V.S 

v'.-.’.-S 

V.N*0 


s*\> 


V.\ 


This  means  as  Ay+O,  the  estimate  of  the  density  of  y^ 
approaches  the  true  value  of  its  PDF. 

Analogous  methods  are  applied  to  the  univariate 
discrete  random  variables  and  bivariate  random  variables. 
Note  that  for  the  case  of  the  univariate  discrete  random 
variables,  the  PDF  of  the  original  random  variables  can  be 
transformed  directly  to  the  PDF  of  the  corresponding  trans¬ 
formed  variables. 

For  the  case  of  bivariate  continuous  random  vari¬ 
ables,  the  CDF  of  the  original  random  variables  cannot  be 
obtained  from  direct  S  computation  so  that  double  integra¬ 
tion  routines  in  the  IMSL  library  are  used  to  estimate  the 
CDF. 

A  PDF  to  PDF  transformation  without  involving  the 
estimation  process  called  the  method  of  distribution  func¬ 
tions  (16:236),  is  applied  to  the  case  of  Y  =  a*X+b  for 
the  standard  normal,  the  chi-square  and  the  F  random  vari¬ 
ables. 

Table  7  lists  the  available  macros  for  transforma¬ 
tions  of  random  variables  of  univariate  distributions  and 
bivariate  distributions. 

Hypothesis  Testing 

The  cook-book  orientation  of  standard  presenta¬ 
tions  of  hypothesis  testing  ignores  the  theoretical  justifi¬ 
cation  for  selecting  test  statistics  and  addresses  the 
concept  of  testing  in  a  static  fashion.  Students  are  asked 
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to  accept  procedures  without  justification  and  have  little 
opportunity  to  explore  the  dynamic  effect  that  sample  size 
type  I  error  (a)  and  type  II  error  (3),  and  alternative 
values  of  the  parameters  under  investigation  can  have  on 
the  power  of  such  tests.  The  ISTP ' s  graphical  approach 
to  testing  establishes  the  credibility  for  using  one  test 
statistic  over  others  by  offering  the  student  a  graphical 
confirmation  that  values  of  the  test  statistic  are  related 
on  a  one-to-one  basis  with  values  of  the  likelihood  ratio. 
Furthermore,  a  dynamic  and  revisable  plot  of  the  power 
function  is  displayed  simultaneously  with  a  plot  repre¬ 
senting  the  sampling  distribution  of  the  test  statistic. 
With  access  to  both  functions  the  student  can  learn  to 
appreciate  the  rationale  for  selecting  test  statistics. 
Most  importantly,  he  has  an  opportunity  to  observe 
dynamically  the  effects  of  varying  each  critical  aspect  of 
testing . 

The  prototypical  version  of  the  ISTP  contains 
macros  to  facilitate  the  process  for  the  test  of  a  mean 
of  a  normal  random  variable  when  a  is  known  and  when  a  is 
unknown.  Power  computations  using  standard  normal  and 
non-central  distributions  are  made  and  graphed  for  observa 
tion  by  the  user. 

Graphical  Method  of  Hypothesis  Testing.  This 


prototypical  version  of  the  ISTP  ex routes  the  following 


steps  to  perform  a  hypothesis  test  for  a  mean  of  a  normal 
distribution  when  a  is  known: 

1.  Take  input  values  proposed  for  the  null  and 
alternative  hypotheses. 

2.  Compute  critical  values  in  terms  of  X  and  Z  for 
rejecting  Hq. 

3.  Compute  the  likelihood  ratio  statistic  associated 
with  the  critical  value  of  X. 

4.  Compute  the  type  II  error  and  power  function. 

5.  Compute  the  test  statistic  Z  or  use  the  given 
sample  mean  as  the  test  statistic. 

6.  Compare  the  test  statistic  to  its  critical  value 
to  decide  whether  H  should  be  rejected  or  not. 

7.  Illustrate  steps  1  through  6  on  four  screens  as 
follows: 

a.  Plot  the  null  hypothesis  and  alternate  hypo¬ 
thesis  on  the  X  scale. 

b.  Plot  the  likelihood  ratio  function  and  the 
sampling  distribution  of  the  null  and  alterna¬ 
tive  distributions  on  the  X  scale. 

c.  Plot  the  power  function  and  show  the  rejection 
area  on  the  Z  scale. 

d.  Show  the  factors  involved  with  decision  making 
by  comparing  the  test  statistic  X  to  its  criti¬ 
cal  value  or  comparing  the  test  statistic  Z  to 
its  critical  value  and  provide  a  prob  value  to 
indicate  the  significance  of  the  test. 

To  perform  the  hypothesis  test  for  a  mean  of  normal  dis¬ 
tribution  when  a  is  unknown,  the  following  steps  are 
employed: 

1.  Take  input  values  proposed  for  null  and  alterna¬ 
tive  hypotheses. 

2.  Compute  a  critical  value  of  T  for  rejecting  Hq. 


3 .  Compute  the  value  of  the  likelihood  ratio  statis¬ 
tic  associated  with  the  critical  value  of  T. 

4.  Compute  the  type  II  error  and  power  function. 

5.  Compute  the  test  statistic  T. 

6.  Compare  the  test  statistic  to  its  critical  value 
to  decide  whether  Hq  should  be  rejected  or  not. 

7.  Illustrate  steps  1  through  6  on  three  screens  as 
follows : 

a.  Plot  the  null  hypothesis  and  alternative  hypo¬ 
thesis  on  the  X  scale. 

b.  Plot  the  likelihood  ratio  function  and  show  the 
rejection  area  on  the  T  scale. 

c.  Plot  the  power  function  and  show  the  factors 
involved  with  decision  making  by  comparing  the 
test  statistic  to  its  critical  value  and  pro¬ 
vide  a  prob  value  to  indicate  the  significance 
of  the  test. 

Table  8  lists  the  available  macros  in  the  ISTP 
for  conducting  these  two  hypothesis  tests. 


Likelihood  Ratio  Statistic .  The  likelihood  ratio 
statistic  (LRS)  can  be  computed  by  using  Equation  (9) . 


maximum  likelihood,  computed  assuming  Ho  true 
maximum  likelihood,  computed  assuming  Ha  true 


(9) 


If  the  likelihood  ratio  is  sufficiently  large,  Hq  should 
be  accepted,  because  when  Hq  is  true  the  value  for  the 
numerator  will  be  large  so  as  to  make  the  value  of  LRS 
large.  Therefore,  the  likelihood  ratio  statistic  can  be 
used  as  another  test  statistic  compared  to  its  critical 


value . 
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Equation  (12)  can  be  developed  as  Equation  (13) : 
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Therefore,  Equation  (11)  can  be  used  to  obtain  the 
likelihood  ratio  statistic  of  the  test  for  the  mean  of  a 
normal  distribution  with  a  known  a  and  Equation  (13)  can 
be  used  for  the  case  of  an  unknown  a. 

Actual  examples  of  S  macros  being  used  to  accom¬ 
plish  tests  and  procedures  described  in  each  of  the  four 
selected  areas  are  presented  in  the  next  chapter. 


IV.  Using  the  ISTP  and  Output  Interpretation 

In  general,  there  are  two  ways  of  accessing  the 
ISTP:  menu-driven  selection  and  direct  macro  selection. 
Before  discussing  detailed  procedures  for  using  the  ISTP, 
its  general  structure  is  introduced  and  preliminary 
descriptions  of  macros  are  provided. 

Structure  of  the  ISTP 

The  ISTP  is  an  interactive  statistical  tutorial 
package  consisting  of  four  learning  modules  dealing  with 
probability  distributions,  maximum  likelihood  estimation, 
transformation  of  random  variables,  and  hypothesis  testing. 
Figure  3  provides  an  overview  of  the  structure  of  the  ISTP. 
The  ISTP  has  been  constructed  as  a  series  of  nested  learn¬ 
ing  modules.  This  hierarchical  structure  allows  the  user 
to  invoke  the  ISTP  via  menus  or  by  direct  macro  selection. 

Although  Figure  3  provides  a  high-level  presenta¬ 
tion  of  the  ISTP's  anatomy,  it  does  not  reveal  the  names 
of  lowest  level  macros.  All  such  macros  are  listed  in 
tables  referred  to  by  Figure  3.  For  example,  from  Figure  3 
the  user  can  determine  that  the  module  dealing  with  proba¬ 
bility  distributions  contains  macros  covering  univariate 
discrete  distributions.  Figure  3  indicates  that  if  the 
user  wants  to  know  what  univariate  discrete  distribution 
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macros  the  ISTP  contains  or  what  functions  the  ISTP  pro¬ 
vides  for  univariate  discrete  distributions,  he  should 
refer  to  Table  10. 

Macros  in  £5 

S  has  three  director  levels:  a  user's  working 
directory,  a  user's  save  directory,  and  the  S  system  direc¬ 
tory  (5:47).  Datasets  created  by  S  assignment  statements 
and  intermediate  datasets  are  stored  in  the  position  1 
directory.  The  position  2  directory,  the  user's  save 
directory,  can  be  used  to  permanently  store  datasets. 

Macros  defined  by  the  user  are  automatically  saved  in 
this  directory.  The  working  directory  and  the  save  direc¬ 
tory  are  owned  by  the  current  user.  The  S  system  direc¬ 
tory,  the  position  3  directory,  contains  datasets  and 
macros  that  can  be  accessed  by  all  S  users.  An  individual 
S  user  only  has  read  and  execute  permission  for  items 
placed  in  the  S  system  directory.  Changes  to  the  position  3 
directory  can  only  be  made  by  the  S  super-user. 

S  macros  are  built  from  three  parts:  the  MACRO 
statement,  body,  and  END  statement.  The  MACRO  statement 
names  the  macro  and  its  arguments;  the  body  contains  S 
expressions;  and  the  END  statement  indicates  the  end  of  the 
macro.  For  example,  a  macro  named  mber  could  be  con¬ 
structed  as  in  Figure  4. 


The  macro  presented  in  Figure  4  was  created  to 
compute  the  PMF  of  a  Bernoulli  distribution.  Once  this 


MACRO  mber( 

x/ ? PROMPT (X  value;  0  or  1  :  )/, 
p/?PROMPT(P  of  X  =  1  :)/) 

# 

#  This  is  a  macro  to  compute  the  PMF  for  Bernoulli 
Distributions . 

# 

({ 

?T(x)_x 

?T(p)_p 

?T_(?T(p)~?T(x)  )*{  (1-?T  (p)  (l-?T(x)  )  ) 

rm(?T(x),  ?T(p),  ?T,  value=?T  ) 

}) 

END 

Fig.  4.  Example  of  a  Macro  to  Compute  the  PMF 

of  a  Bernoulli  Distribution 
(Using  Intermediate  Datasets) 


macro  is  defined  in  the  user's  save  directory  or  S  system 
directory,  users  can  call  this  macro  by  issuing  the  command 
?mber  and  supplying  proper  arguments,  at  any  time.  "Macros 
are  introduced  by  the  character  "?",  followed  by  the  macro 
name  and  optional  arguments  in  the  parenthesis"  (5:155). 
Without  such  macros,  the  user  would  have  to  compute  the 
PMF  of  Bernoulli  distributions  by  typing  the  PMF  equation 
with  actual  values  every  time  he  wants  it.  The  necessary 
sequence  of  S  expressions  to  do  this  are  listed  in  Figure  5 


>  x_l 

>  p__.  3 

>  pmf_(p<'x)  *  ( (1-p)  ~  (1-x)  ) 

>  pmf 
0.3 

Fig.  5.  Example  of  Computing  the  PMF  for  a  Bernoulli 
Distribution  Without  Using  a  Macro 


The  macro  facility  "allows  new  function-like  operations  to 
be  built  up  from  S  expressions,  and  allows  commonly  used 
expressions  to  be  saved  and  executed  with  a  minimum  of 
typing"  (5:155). 

Interaction  between  the  user  and  the  computer  can 
be  enhanced  by  using  the  macro  ? PROMPT  which  executes  if 
the  user  fails  to  provide  the  argument.  This  allows  users 
to  call  the  macro  without  giving  arguments.  In  such  an 
instance,  the  macro  will  ask  the  user  to  provide  the  proper 
arguments  by  printing  the  messages  in  parenthesis  located 
next  to  the  ? PROMPT. 

Using  intermediate  datasets  such  as  ?T(x)  or  ?T 
becomes  important  when  the  prompting  option  is  executed 
by  a  macro.  Unless  the  input  variables  are  redefined  by 
using  such  intermediate  datasets,  the  macro  ? PROMPT  will 
cause  S  to  ask  the  user  to  provide  inputs  every  time  the 
input  variables  are  used  in  an  S  expression.  For  example, 
if  the  macro  ?mber  in  Figure  6  is  executed,  S  will  ask  the 

MACRO  mber ( 

x/?PROMPT (X  value;  0  or  1  :  )/, 
p/?PROMPT(P  of  X  =  1  :  )/) 

# 

#  This  is  a  macro  to  compute  the  PMF  for  Bernoulli 
Distributions. 

# 

({ 

?T_<p~x)*((i-Pr  (i-x)) 

rm(?T,  value=?T) 

)  } 

END 

Fig.  6.  Example  of  a  Macro  to  Compute  the  PMF  of  a 
Bernoulli  Distribution  (Without  Using 
Intermediate  Datasets) 


user  to  provide  inputs  x  and  p  two  times,  because  vari¬ 
ables  x  and  p  appear  twice  in  the  body  of  the  macro. 

Macros  are  compiled  by  using  the  S  function  define 
Assuming  the  "pmfber”  is  the  name  of  the  UNIX  file  where 
the  macro  ?mber  is  stored,  the  user  can  execute  the  define 
command  as  follows: 

>  define  ("pmfber") 
mac .mber 

S  responds  to  the  define  command  by  printing  the  macro 
name  preceded  by  mac . .  S  stores  the  macro  ?mber  in  file 
mac. mber  in  the  user's  save  directory. 

Methods  of  Accessing  the  ISTP 

The  ISTP  is  constructed  hierarchically  using  a 
combination  of  menu  functions  and  macros.  As  mentioned 
earlier,  there  are  two  general  ways  of  accessing  the  ISTP: 
by  menus  and  by  direct  macros  selection.  These  options 
are  documented  by  Figure  7.  Figure  3  (page  61)  provided 
the  menu  hierarchy.  The  tables  referred  to  in  Figure  3 
contain  the  information  needed  to  execute  macros  directly. 

Most  of  the  ISTP  macros  are  designed  to  provide 
graphical  output.  Its  remaining  macros  compute  PDFs 
(PMFs) ,  CDFs  and  quantiles  or  generate  the  random  variates 
for  probability  distributions.  Users  should  request 
activation  of  an  appropriate  driver  (printer,  teklO,  or 


Menu  Driven  Selection 


Direct  Macro  Selection 


Fig.  7.  Two  Ways  of  Accessing  the  ISTP 

hp7222v,  etc.)  before  executing  the  ISTP  macros  when 
graphical  results  are  expected. 

Menu  Driven  Selection .  Execution  of  any  macro  in 
the  ISTP  can  be  requested  by  calling  one  of  the  four 
highest  macros:  ?dist ,  ?mle,  ? tran,  or  ?hypo  or  any  macro 
superior  to  the  desired  macro  in  the  hierarchy  of  macros, 
except  the  macros  which  compute  PDFs  (PMFs) ,  CDFs  or  quan¬ 
tiles  and  generate  random  variates  of  univariate  probability 
distributions. 

It  is  recommended  that  beginners  use  the  ISTP  by 
calling  one  of  the  highest  macros.  The  ISTP  will  then  pro¬ 
vide  menus  which  allow  users  to  select  macros  at  lower 
levels.  By  using  three  or  four  second  level  menus  in 

i 

! 

succession,  the  user  can  reach  the  macro  that  he  wants  to 
execute.  For  example  to  generate  20  random  variates  from 
the  bivariate  normal  distribution,  whose  y^  =  2,  ox  =  3, 

Uy  =2,  o  =  1,  and  whose  correlation  coefficient  p  =  0.5, 


the  user  can  invoke  macro  ?dist  and  request  the  following 
sequence  of  menus  as  displayed  in  Figure  9  on  the  next  page. 

When  the  user  does  not  know  the  highest  macro  name, 
he  can  obtain  the  name  by  typing  ?istp  as  in  Figure  8. 

?istp 

1  -  Probability  Distribution 

2  -  Maximum  Likelihood  Estimation 

3  -  Transformation  of  Random  Variables 

4  -  Hypothesis  Test 
Which  one?  1 

Please  call  macro  '?dist'  for 

the  area  of  Probability  Distributions 

Fig.  8.  Example  of  Getting  Assistance  for  the  ISTP 

Direct  Macro  Selection .  Menus  require  less  train¬ 
ing  to  use  than  the  command  language;  however,  "one  of  the 
major  drawbacks  to  menu  selection  is  in  inefficiency  for 
the  expert  user  who  wants  to  go  directly  to  a  specific 
command"  (8:545-546).  Therefore,  menu-driven  selection  is 
recommended  for  beginners  and  direct  macro  selection  is 
recommended  for  expert  users. 

Tables  referred  to  in  Figure  3  provide  the  informa¬ 
tion  on  direct  macro  selection  except  for  the  transforma¬ 
tion  random  variables.  The  descriptions  of  the  lowest 
level  macros  are  provided  in  Table  10  through  Table  14 
and  Table  17.  (These  tables  are  shown  later  in  this  chapter.) 
For  example.  Table  10  can  be  used  to  find  out  which  dis¬ 
tributions  and  macros  are  available  for  each  univariate 
discrete  distribution  in  the  probability  distribution  area. 
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1  -  Univariate  distribution 

2  -  Bivariate  distribution 
Which  one?  2 


1  -  NORMAL  BIVARIATE  DISTRIBUTION 

2  -  INDEPENDENT  GAMMA  BIVARIATE  DISTRIBUTION 

3  -  QUIT 
Which  one?  1 

1  -  SHAPE  OF  BIVARIATE  PDF 

2  -  SHAPE  OF  INDEPENDENT  BIVARIATE  CDF 

3  -  PDF 

4  -  INDEPENDENT  CDF 

5  -  GENERATE  RANDOM  DEVIATES 

6  -  RETURN  TO  PREVIOUS  STEP 
Which  one?  5 


Table  10  indicates  that  the  Bernoulli,  the  binomial,  the 
negative  binomial,  the  geometric,  the  hypergeometric,  the 
uniform,  the  Poisson,  and  the  ReyLam  distribution  are 
covered  by  the  ISTP.  Furthermore,  Table  10  provides  all 
the  information  related  to  direct  macro  selection.  On 
the  other  hand.  Table  7  does  not  provide  the  lowest  level 
macros  which  the  user  could  invoke  for  direct  macro  selec¬ 
tion.  In  other  words,  if  the  user  wants  to  graph  the 
transformation  of  Y  =  Log(X)  for  normal  randcm  variables, 
he  must  call  at  least  macro  ? trnorm.  This  will  generate 
menus  he  needs  to  gain  access. 

Available  methods  for  accessing  macros  of  the  ISTP 
are  summarized  in  Table  9. 

As  mentioned  earlier,  the  macros  which  compute  the 
PDF  (PMF) ,  the  CDF  and  quantiles  or  generate  random  vari¬ 
ates  cannot  be  invoked  by  using  menus  except  those  associ¬ 
ated  with  bivariate  continuous  distributions.  Since  all  S 
functions  compute  PDFs,  CDFs  and  quantiles  or  generate 
random  variates  without  menu  operations,  the  macros  of  the 
ISTP  which  perform  similar  functions  for  univariate  dis¬ 
tributions  have  been  designed  to  be  invoked  in  the  same  way 

As  indicated  by  Figure  10,  direct  macro  selection 
offers  two  access  options:  calling  the  macro  with  proper 
arguments  as  inputs  or  calling  the  macro  without  arguments. 
Since  all  macros  require  inputs  from  the  user,  the  user 
should  provide  correct  inputs  by  one  of  the  following  two 


Direct  Macro  Selection 


Fig.  10.  Two  Ways  of  Asking  for  Direct 

Macro  Selection 

ways.  If  the  user  knows  the  input  requirements  exactly, 
the  user  can  call  the  macro  providing  arguments  in  the 
parenthesis  following  the  macro  name.  On  the  other  hand, 
if  the  user  does  not  know  the  ii.^ut  requirement,  the  user 
can  call  the  macro  by  issuing  the  macro  name  only.  The 
macro  will  then  use  the  prompting  function  to  request 
required  inputs.  For  example,  to  generate  10  random  vari¬ 
ates  from  the  bivariate  normal  distribution  with  u  =3, 
ox  ®  3,  My  -  2,  Cy  =  2  and  whose  correlation  coefficient 
p  =  0.2,  either  of  two  methods  presented  in  Figure  11  can 
be  exercised.  Note:  the  same  random  number  seed  is  given 
in  both  to  guarantee  identical  results  are  achieved  in  each 

C  cl  S6  * 

The  input  requirements  for  most  macros  are  as  easy 
to  specify  as  for  the  functions  of  S.  On  the  other  hand, 
there  are  some  macros  that  are  rather  complicated  to  use. 


>  seed_Random. seed 

>  Random. seed_seed 
# 

#  A  certain  number  was  given  to  the  random  number  seed. 

# 

>  ?rbinorm(10,3,3,2,2,  .2)  #  Direct  macro  selection  with 

#  proper  arguments  as  inputs. 

Array: 

2  by  10 

[,  1] 

11,]  1.288061 
[2,]  0.490316 

[,  6] 

[1,[  3.478800 

[2,]  3.147666 

> Random. seed_seed 
# 

#  Same  random  number  seed  was  assigned. 

# 


[,  2] 
3.293183 
3.465924 


[/  3] 
1.975809 
2.668956 


[,  7] 
0.880869 
3.063315 


[,  8] 
1.926381 
2.591642 


[,  4] 
■2.119554 
■0.818479 


t,  5] 
4.930751 
5.483446 


[,  9] 
6.714127 
3.611894 


M0] 
1.254592 
2. 210813 


>?rbinorm  #  direct  macro  selection  without  arguments. 


Number  of  sample 

10 

Mean  of  X 

3 

Sigma  of  X 

3 

Mean  of  Y 

2 

Sigma  of  Y 

2 

Correlation 

.2 

Array 

l 

2  by 

10 

l,  1] 

[,  2] 

[,  3] 

l,  4] 

r,  5] 

[1,1 

1.288061 

3.293183 

1.975809 

-2.119554 

4.930751 

[2,] 

0.490316 

3.465924 

2.668956 

-0.818479 

5.483446 

[,  6] 

[,  7] 

[,  8] 

[,  9] 

M0] 

[1,] 

3.478800 

0.880869 

1.926381 

6.714127 

1.254592 

[2,] 

3.147666 

3.063315 

2.591642 

3.611894 

2.210813 

Fig.  11.  Example  of  Direct  Macro  Selection 
Using  Random  Variates  Generator 
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If  the  user  is  not  familiar  with  the  input  requirement 
such  as  the  input  requirements  for  the  macro  dealing  with 
plotting  the  shape  of  a  distribution,  the  macro  should  be 
called  without  arguments.  The  ISTP  will  then  tell  the  user 
what  inputs  to  enter. 

The  rest  of  this  chapter  discusses  the  input 
requirements  and  how  to  interpret  the  output  of  macros 
contained  in  probability  distribution,  maximum  likelihood 
estimation,  transformation  of  random  variables,  and 
hypothesis  testing  modules. 

Probability  Distributions 

Probability  distributions  in  the  ISTP  can  be  used 
for  two  purposes:  to  compute  PDFs  (PMFs) ,  CDFs  or  quantiles 
and  generate  random  variates  and  to  plot  the  shape  of  a 
particular  distribution  or  to  compare  the  shapes  of  dis¬ 
tributions  among  a  family's  members.  Macros  which  plot 
the  shape  of  distributions  can  be  called  either  via  menu 
selection  or  by  direct  macro  selection,  while  the  macros 
which  compute  PDFs  (PMFs) ,  CDFs,  or  quantiles;  or  that 
generate  random  variates,  can  only  be  called  by  direct 
macro  selections,  except  for  the  bivariate  continuous 
distributions. 

Input  Requirements .  Tables  10  through  12  provide 


detailed  descriptions  of  the  input  requirements  for  all 
macros  of  probability  distributions  in  the  ISTP.  The  input 


Macros  Descriptions  Inputs 
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requirements  are  found  in  the  parentheses  next  to  the 
corresponding  macro  names.  The  inputs  are  explained  in 
the  input  column.  For  example,  the  inputs  for  the  macro 
Tmbin,  which  computes  the  PMF  of  the  binomial  distribution, 
are  x,  n,  and  p,  where  x  is  the  number  of  successes,  n  is 
the  number  of  Bernoulli  trials,  and  p  is  the  probability  of 
success  on  a  given  trial.  This  is  crucial  information  when 
the  user  wants  to  use  the  macro,  with  arguments,  directly. 

Another  important  input  requirement  needs  to  be 
considered  if  a  comparison  is  to  be  made  among  a  family's 
members.  An  example  of  calling  a  macro  to  compare  four 
members  of  the  norma1  family  is  displayed  as  Figure  12. 

>  Tonormplot 


NUMBER  OF  PLOT (up  to  4)  :  4 

MEAN  (ex)  2.  3.  4.  :  0,0, -2, 2 

Std  Dev  (ex)l.  3.  7  :  1,2, 3, 4 

MIN  X  for  PLOT  :  -6 

MAX  X  for  PLOT  :  6 


Fig.  12.  Example  of  Input  Entry 

As  shown  in  Figure  12,  the  number  of  provided  means 
and  standard  deviations  is  identical  to  the  number  of  plots 
requested.  In  other  words,  if  the  user  wants  to  compare 
four  different  normal  distributions,  he  should  specify  4 
as  the  input  for  number  of  plots,  and  then  provide  four 
values  for  means  and  four  values  icr  standard  deviations. 
The  first  mean  should  be  paired  with  the  first  standard 
deviation  and  the  second  mean  should  be  paired  with  the 
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second  standard  deviation,  and  so  on,  so  that  the  first 
plot  will  reflect  a  normal  distribution  with  =  0  and 
=  1;  and  the  second  one  will  reflect  a  normal  distribu¬ 
tion  with  y2  =  0  and  a2  ~  2'  etc.  Even  if  the  values  of 
the  means  or  standard  deviations  are  the  same,  the  user  must 
specify  every  value  explicitly.  For  example,  if  the  user 
wants  tc  compare  the  shapes  of  three  normal  distributions 
whose  means  are  all  1  and  whose  standard  deviations  are 
1,  2,  and  3  respectively,  then  the  user  should  provide  the 
input  as  in  Figure  13. 

>  ?onormplot 


NUMBER  OF  PLOT (up  to  4)  :  3 

MEAN  (ex)  2,  3,  4  :  1,1,1 

Std  Dev  (ex) 1,  3,  7  :  1,2,3 

MIN  X  for  PLOT  :  -6 

MAX  X  for  PLOT  :  6 


Fig.  13.  Example  of  Input  Entry 

Caution  should  be  exercised  when  the  macro  is 
invoked  directly  with  arguments  for  comparing  the  shapes 
of  distributions.  Each  input  value  should  be  entered  as  a 
vector  of  values  using  the  c  function  of  S  as  shown  in 
Figure  14.  However,  the  following  type  of  entry  must  be 
avoided. 

>  ?onormplot(3,l,l,l,l, 2, 3, -6, 6) 

The  input  entry  "MIN  X  for  PLOT"  and  "MAX  X  for 
PLOT"  provide  the  range  for  the  plot.  This  needs  to  be 
entered  by  the  user.  By  setting  and  resetting  the  range 


>  ?onormplot (3 ,c (1, 1, 1) ,c(l,2,3) ,-6,6) 


or 

>  mean  c ( 1 , 1 , 1 ) 

>  stdv  c(  1,2,3) 

>  ?onormplot (3 ,mean, stdv, -6 , 6 ) 

Fig.  14.  Example  of  Input  Entry 

for  a  plot,  the  user  can  obtain  different  information 
from  several  plots  of  the  same  data  set.  For  instance, 
by  narrowing  or  expanding  the  range,  the  user  can  produce 
graphics  that  reflect  zooming  or  panning  over  the  data. 

Output  Interpretation .  Figure  15  displays  four 
univariate  normal  distributions,  whose  parameters  are  the 
same  as  those  used  in  Figure  12.  Each  distribution  has  a 
corresponding  number  from  1  to  4  and  each  of  their  param¬ 
eters  is  displayed  in  brackets  at  the  bottom  of  the  plot. 
Normal  distribution  one's  mean  and  standard  deviation  are 
0  and  1;  normal  distribution  two's  mean  and  standard  devia¬ 
tion  are  0  and  2;  and  so  on. 

Figure  16  displays  four  univariate  binomial  dis¬ 
tributions  whose  parameters  are  placed  above  their  plots. 
The  scales  of  the  x  and  y  axes  are  arranged  so  that  they 
can  be  compared  easily. 

Figures  17  and  18  display  a  Weibull  distribution 
whose  shape  parameter  is  7  and  whose  scale  parameter  is  1. 
The  difference  between  these  two  figures  can  be  accounted 
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for  by  their  different  ranges.  A  maximum  plotting  range 
of  10  is  used  for  Figure  17,  while  2  is  used  for  Figure  18. 
Unlike  the  normal  distribution,  shapes  of  the  Weibull  or 
the  gamma  distribution  for  various  parameters  are  not  well 
known.  Thus,  it  is  usually  difficult  to  select  the  proper 
range  for  a  plot  of  these  distributions.  In  this  case, 
at  first  a  wide  range  should  be  selected,  as  is  done  in 
Figure  17.  By  doing  so  the  user  can  determine  a  reasonable 
range  for  the  next  plot.  This  will  yield  the  favorable 
graphical  result  displayed  in  Figure  18. 

Maximum  Likelihood  Estimation 

When  the  maximum  likelihood  estimation  macros  are 
invoked,  the  user  must  provide  actual  samples  of  size  one 
or  two.  Then  the  user  extimates  the  parameter (s) .  The 
ISTP  will  provide  two  screens.  On  the  first  screen,  the 
shape  of  the  PDF  (PMF)  using  the  parameter (s)  estimated 
by  the  user  is  plotted  and  the  value  of  the  PDF  (PMF)  for 
the  given  sample  is  provided.  The  second  screen  allows 
the  user  to  observe  the  process  of  optimization  by  plotting 
the  likelihood  function  against  a  suitable  range  of  the 
parameter ( s) .  The  likelihood  function  is  obtained  by 
computing  the  joint  PDF  (PMF)  of  the  given  sample  for  these 
values  of  the  parameter ( s) .  Although  the  term  jo  t  PDF 
(PMF)  is  not  adequate  for  the  case  of  sample  size  one,  it 
is  very  useful  when  trying  to  graphically  motivate  the  idea 


of  maximum  likelihood  estimation.  If  there  are  two  param¬ 
eters,  as  in  the  case  of  the  normal  distribution,  both 
parameters  can  be  estimated,  or  only  one  parameter  can  be 
estimated,  if  the  other  parameter  is  known  and  provided  by 
the  user. 

The  maximum  likelihood  estimation  macros  can  be 
accessed  by  menu  or  by  direct  selection.  When  direct 
macro  selection  is  desired,  Tables  13  and  14  should  be  used 
to  identify  the  input  requirements. 

Input  Requirements .  Table  15  provides  information 
on  what  types  of  inputs  are  required  when  different  sample 
sizes  and  numbers  of  parameters  are  selected.  For  example, 
if  the  sample  size  is  two  and  the  number  of  parameters  is 
two  with  one  known  parameter,  two  sample  values  and  one 
known  parameter  should  be  provided  by  the  user.  The  user 
will  also  have  to  estimate  the  other  parameter. 

More  detailed  input  requirements  for  maximum  likeli¬ 
hood  estimation  are  provided  in  Table  13  for  univariate 
discrete  distributions  and  Table  14  for  continuous  distribu¬ 
tions.  Table  14  indicates  that  the  macro  ?mlenorm2s 
requires  five  inputs:  random  variable  x  and  y,  correlation 
r,  known  mean  m,  and  estimated  standard  deviation  s. 

Although  the  macro  will  automatically  compute  the  maximum 
likelihood  estimate  for  the  given  sample  x  and  y  whose 
correlation  is  r  and  mean  is  m,  the  user  is  first  asked 
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DESCRIPTIONS  OF  MAXIMUM  LIKELIHOOD  ESTIMATION  MACROS  FOR 
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TABLE  15 


INPUT  REQUIREMENTS  FOR  MAXIMUM  LIKELIHOOD 
ESTIMATION  MACROS 


Sample 

Size 

No.  of 
Parameters 

No.  of  Known 
Parameters 

Input 

1 

1 

0 

■  -  ..  -J 

1  sample 

1  (e)  parameter 

2 

0 

| 

1  sample 

2  (e)  parameter 

1 

| 

1  sample 

1  (e)  parameter 
1  (k)  parameter 

2 

1 

0 

2  sample 

1  (e)  parameter 

2 

0 

2  sample 

2  (e)  parameter 

1 

2  sample 

1  (e)  parameter 
1  (k)  parameter 

NOTES : 


>sel 


•  ' \\  V 


m 


(e)  :  estimated  by  the  user 

(k)  :  known  and  provided  by  the  user 
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to  estimate  the  standard  deviation  of  the  given  sample. 
The  functional  relationship  he  selects  to  estimate  the 
standard  deviation  may  or  may  not  be  the  MLE  for  p. 


Output  Interpretation .  Figures  19  through  21  are 
examples  of  computer  graphics  generated  during  the  esti¬ 


mation  of  an  MLE  for  the  standard  deviation  of  a  normal 


distribution  with  known  mean.  The  random  samples  are  given 
as  3  and  5.  The  correlation  of  random  variables  is  stated 


to  be  0.5.  The  mean  is  3  and  standard  deviation  is  esti¬ 


mated  to  be  8  by  the  user.  Figure  19,  the  first  graphics 
screen,  shows  the  shape  of  the  PDF  of  the  random  variables. 


X  ranges  from  -13  to  19  and  y  ranges  from  -11  to  21.  The 
joint  PDF  of  the  random  variable  using  the  sample  values 
3  and  5,  is  computed  as  0.002754317  when  y  =  3 ,  p  =  8  and 
p  =  0.5.  Figure  20,  the  second  screen,  shows  the  likeli¬ 
hood  function  for  the  range  of  +/-2  centered  around  esti¬ 
mated  standard  deviation.  Since  the  likelihood  function 


continues  to  increase  as  the  p  value  decreases,  a  third 


screen  is  required  to  finally  observe  the  MLE  for  p. 

Figure  21  shows  that  when  o  is  1.632993,  the  joint  PDF 
is  0.02535282.  This  is  the  maximum  value  for  the  joint  PDF 
of  the  given  sample  values  3  and  5,  with  p  =  1.632993 


and  y  =  3.  The  difference  between  the  two  joint  PDF  values 
for  sigma  estimated  by  the  user  and  for  the  MLE  of  p  is 


quite  large,  implying  that  the  user's  estimate  for  p  is 
far  from  the  MLE  for  p. 


ven  Mu 


Another  example  of  maximum  likelihood  estimation 
is  given  using  the  standard  gamma  distribution.  Here, 
the  MLE  for  a,  which  is  a  parameter  of  the  gamma  distribu¬ 
tion,  is  not  unique  or  is  not  computable  (6:99;  9:229). 

Thus  computer  graphics  must  be  used  to  show  iterations 
needed  to  discover  the  MLE  for  a.  Since  there  is  no  closed 
form  solution  which  allows  the  MLE  for  a  to  be  computed 
directly,  different  a  values  are  put  into  the  joint  PDF 
in  search  of  a  particular  a  that  maximizes  the  joint  PDF. 
Since  only  a  subset  of  the  infinite  number  of  possible 
values  could  be  selected,  one  can  never  be  sure  that  any 
particular  a  value  maximizes  the  joint  PDF  through  the 
whole  range  of  a.  However,  in  practice,  the  true  maximum 
likelihood  estimate  for  alpha  will  exist  close  to  some 
selected  a  value.  Therefore,  at  each  succeeding  iteration, 
a  narrower  range  for  a,  centered  at  the  previously  selected 
a  value,  will  be  used  to  compute  the  joint  PDF.  Through 
repeated  iterations,  an  approximation  for  the  functional 
form  of  the  maximum  likelihood  estimator  for  the  gamma 
parameter  can  be  achieved. 

An  example  is  given  using  the  standard  gamma  dis¬ 
tribution  whose  sample  value  is  5  and  whose  estimated  a  is 
given  as  2.  Figure  22,  the  first  screen,  shows  that  the 
PDF  for  the  sample  value  5,  when  a  is  2,  is  0.03368973. 
Figure  23,  the  second  screen,  shows  the  maximum  likelihood 
estimation  for  a  when  a  values  ranging  from  0  to  10  are 
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Maximum  Likelihood  Estimation  for  the  Gamma 


used  to  compute  the  PDF  for  the  sample  value  5.  At  the 
first  iteration,  the  MLE  for  a  is  estimated  as  5.5  and  the 
PDF  is  0.1799019.  Figure  24,  the  third  screen,  uses  a 
narrower  range  of  a  from  5  to  6.  The  second  iteration 
results  in  an  MLE  equal  to  5.49  and  a  PDF  value  of 
0.179903.  This  is  larger  than  the  previous  PDF  by 
.0000011.  Figure  25,  the  fourth  screen,  uses  an  even 
narrower  range  for  a  and  shows  the  same  value  for  the  MLE 
and  PDF  as  Figure  24.  However,  four  vertical  arrows  appear 
on  the  screen,  which  signifies  that  the  MLE  may  not  be 
unique  nor  analytically  computable.  Figure  26,  the  fifth 
screen,  shows  that  the  PDF  plot  is  not  a  smooth  line  any 
more  and  the  MLE  for  a  is  5.49072  and  the  PDF  is  0.1799031. 
But  the  a  value  is  not  unique.  After  four  iterations, 
it  can  be  concluded  that  a  is  not  unique  but  exists  and 
is  approximately  5.49. 

Transformation  of  Random  Variables 

As  Table  9  (page  70)  points  out,  the  user  must 
access  the  ISTP  transformation  of  random  variables  learning 
module  by  menu  selection.  Figure  3  (page  61)  indicated 
that  the  highest  macro  in  the  transformation  of  random 
variables  is  ? tran  and  that  lower  level  macros  are: 

?uvtran,  for  the  univariate  case;  Tbvtran,  for  the  bivariate 
case;  ? trdis ,  for  the  univariate  discrete  case;  and  ? trcont, 
for  the  univariate  continuous  case.  Table  7  (pages  51-53) 
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provides  a  list  of  the  lowest  level  of  macros  and  avail¬ 
able  transformation  forms  for  univariate  discrete  and  con¬ 
tinuous  random  variables  and  bivariate  continuous  random 
variables . 

Input  Requirements .  As  discussed  in  Chapter  III, 
transformations  are  accomplished  by  a  known  PDF  to  an 
estimated  PDF  transformation.  The  accuracy  of  the  esti¬ 
mated  PDF  depends  on  the  width  of  the  integration  sub¬ 
interval  that  the  user  requests.  The  narrower  the  sub¬ 
interval,  the  more  precise  the  outcome.  However,  if  too 
many  intervals  are  required,  the  length  of  the  time  it 
takes  the  computer  to  perform  the  transformation  may  become 
unacceptable.  On  the  other  hand,  if  too  few  intervals  are 
requested,  the  transformation  may  be  inaccurate.  The 
decision  concerning  how  many  intervals  to  compute  depends 
on  at  least  the  following  factors:  the  user's  accuracy 
and  precision  needs,  the  amount  of  computer  time  available 
for  such  computation,  and  the  number  of  users  on  the  com¬ 
puter  at  the  time  the  transformation  is  solicited. 

Depending  upon  the  type  of  transformation  requested 
there  may  be  certain  restrictions  placed  on  the  range  of 
the  values  of  random  variables  involved.  For  certain 
complicated  transformations,  the  range  of  transformed 
variables  is  estimated  by  the  ISTP  to  avoid  generation  of 
meaningless  displays. 


Univariate  Discrete  Case .  The  transforma¬ 
tion  of  a  binomial  random  variable  is  the  only  transforma¬ 
tion  available  for  the  discrete  case.  Since  the  transforma- 

2 

tion  is  for  the  polynomial  Y=aX  +  b  •  X  +  c,  where  X 
is  a  binomial  random  variable  and  Y  is  the  tiansformed 
random  variable,  the  random  variable  X  is  paired  with  the 
transformed  variable  Y  discretely.  A  given  random  variable 
Y  may  be  associated  with  one  or  two  values  of  the  random 
variable  X.  If  one  value  of  X  is  paired  with  one  value 
of  Y,  the  PMF  at  X  is  the  PMF  at  Y.  On  the  other  hand,  if 
there  are  two  values  of  X  which  are  paired  with  one  value 
of  Y,  the  sum  of  probabilities  of  two  values  of  Y  becomes 
the  probability  associated  with  the  value  of  Y. 

Univariate  Continuous  Case.  Functions  of 
random  variables  for  which  a  transformation  can  be  made 
are:  Y  =  X2,  Y  =  Log(X),  Y  =  Exp(X),  Y  =  /x  and  Y  =  a  X  +  b, 
where  X  is  the  original  random  variable  and  Y  is  the  trans¬ 
formed  random  variable.  The  inputs  required  to  transform 
univariate  continuous  random  variables  are:  the  parameter(s) 
of  the  distribution  from  which  the  original  random  variable 
comes,  the  smallest  value  of  Y  and  the  largest  value  of  Y 
for  which  the  PDF  of  Y  is  desired,  and  the  sub- interval 
of  Y.  Caution  should  be  exercised  when  the  user  selects 
the  range  of  Y.  /  may  have  restrictions  on  its  range 
because  of  restrictions  on  X  and/or  the  form  of  its 


transformation  equation.  The  explicit  restrictions  on 
Y's  range  for  the  available  transformations  are  summarized 
in  Table  16 . 

It  is  sometimes  difficult  to  compute  the  appropri¬ 
ate  range  for  Y.  A  recommended  way  is  to  establish  the 
range  of  Y  in  terms  of  the  range  of  X,  because  the  values 
of  the  random  variable  X  are  known  a  priori  while  the  values 
of  the  random  variable  Y  are  not  known  until  the  transforma¬ 
tion  has  been  performed.  For  example,  to  set  the  range 
of  Y  for  the  transformation  Y  =  Log(X)  when  X  >  0,  instead 
of  using  specific  values  for  the  smallest  and  largest  value 
of  Y,  the  Y  range  can  be  given  in  terms  of  X;  that  is. 

Log (0.1)  for  the  starting  point  of  Y,  and  Log (4)  for  the 
ending  point  of  Y. 

Bivariate  Continuous  Case.  The  transforma¬ 
tion  of  bivariate  random  variables  are  more  involved  than 
those  of  univariate  random  variables.  Since  it  can  be  a 
very  difficult  task  to  establish  the  appropriate  bounds 
on  Z  for  the  transformation  Z  =  f(X,Y),  the  ISTP  auto¬ 
matically  computes  the  best  range  for  Z.  However,  the  user 
is  afforded  the  opportunity  to  adjust  the  number  of  sug¬ 
gested  sub-intervals.  By  asking  for  a  large  number  of 
intervals,  the  user  can  achieve  a  high  level  of  accuracy. 

By  requesting  a  small  number  of  intervals  he  can  obtain 
speedy  results.  In  all  cases  the  user  must  provide  the 


TABLE  16 

RESTRICTIONS  ON  Y  RANGE  FOR  TRANSFORMATION 
OF  RANDOM  VARIABLES 


Tr an  s  f orma  t i on 
Equation 


=  Log (X) 


=  Exp (X) 


a  X  +  b 
(a  *  0) 


Defined  X  Range 
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on  Y  Range  (or  X) 


Y  >  0 


Y  >  0 


Y  >  0,  X  >  0 


No  restriction 


a  >  0 


parameters  of  distributions  of  the  random  variables 
involved  in  the  transformation. 


Output  Interpretation.  The  steps  involved  with 
transformation  of  a  log-normally  distributed  random  vari¬ 
able  X  to  Y,  Y  =  Log(X),  are  illustrated  by  Figures  27 
through  30.  These  represent  the  sequence  of  computer 
graphics  produced  by  the  ISTP  learning  module  for  the 
transformation  of  a  random  variable.  The  inputs  for  this 
transformation  are:  the  mean  and  standard  deviation  of  the 
log-normal  distribution,  0  and  1,  the  starting  and  ending 
values  for  Y,  -2  and  2  and  the  sub-interval  for  Y,  0.05. 
Figure  27,  the  first  graph,  shows  the  relationship  between 
random  variables  X  and  Y  and  between  Y  and  X.  Figure  28, 
the  second  graph,  shows  the  relationship  between  the  dis¬ 
tribution  of  X  and  the  distribution  of  Y  which  turns  out 
to  be  the  relationship  between  a  lognormal  distribution  and 
a  normal  distribution.  This  graph  shows  that  Y  is  dis¬ 
tributed  normally  with  mean  0  and  standard  deviation  1 . 

Figures  29  and  30  display  the  iterations  of  the 
transformation  process.  Figure  29  represents  the  trans¬ 
formation  of  the  first  interval,  and  Figure  30  represents 
that  for  the  45th  interval.  In  Figure  29,  the  shaded  areas 
under  the  PDFs  of  X  and  Y  represent  the  same  probabilities. 
Dividing  the  shaded  area  of  Y  by  the  increment  0.05  yields 
the  value  of  Y's  PDF.  In  Figure  29,  the  PDF  of  Y  is 
0.0567585  when  Y  equals  -2.  Utilizing  the  same  process. 


Transform  of  Lognormal  Voriable  flu 
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transform  of  Normol(X)  4  Chlsquore  vorloble(Yp)  with  T  =  X/SQR S f Yp/DF y 


means  that  the  volume  under  each  three-dimensional  slice 


over  the  region  of  integration  defined  by  a  subset  of 
values  for  X  and  Y  is  transformed  into  the  area  under  the 
transformed  PDF  over  the  range  of  T  (-4,4)  set  by  the  ISTP 
program.  Figures  34  and  35  show  the  1st  and  15th  iteration 
of  this  transformation. 

Hypothesis  Testing 

Figure  3  (page  61)  indicated  that  the  macro  ?hypo 
is  the  highest  macro  in  the  hypothesis  testing  area  and 
that  ? testl  and  ? test2  can  be  used  to  invoke  a  test  for 
the  mean  of  a  normal  distribution  when  the  standard  devia¬ 
tion  is  known  and  when  the  standard  deviation  is  unknown. 
Table  17  provides  the  information  concerning  input  require¬ 
ments  for  these  two  tests. 


Input  Requirements.  Five  inputs  are  required  to 
use  either  ? testl  or  ? test2 ;  the  sample  mean  X,  the  sample 
standard  deviation  S,  the  sample  size  n,  the  null  value  y  , 
type  I  error  a,  and  the  effect  size. 

Effect  size  is  "an  index  of  degree  of  departure 

from  the  null  hypothesis"  (7:10).  The  relation  between 

effect  size  and  power  and  between  the  effect  size  and  the 

sample  size  is  as  follows: 

The  larger  the  effect  size  posited,  other  things 
(significance  criterion,  sample  size)  being  equal,  the 
greater  the  power  of  the  test.  .  .  .  The  larger  the 
effect  size  posited,  other  things  (significance  cri¬ 
terion,  desired  power)  being  equal,  the  smaller  the 
sample  size  necessary  to  detect  it.  (7:11) 


Chisquare  variablelYp)  wiih  T  =  X/SQRT  (Yp/DFy) 


Iterated  Process  of  Transformation  (1st  Iteration) 


X/SORT  fVp/D fy 


Iterated  Process  of  Transformation  (15th  Iteration) 
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In  the  ISTP,  the  effect  size  represents  the  absolute  dis¬ 


tance  between  the  null  value  yQ  and  a  presumed  alternative 
value  for  the  parameter  y^.  Therefore,  the  power  and  the 
type  II  error  are  computed  based  on  size  of  the  effect 
value.  To  avoid  confusion,  the  user  is  required  to  provide 
the  effect  size  in  terms  of  deviation  without  considering 
its  direction.  For  example,  for  a  right  tail  test,  the 
alternative  value  y^  will  be  greater  than  y  ,  and  for  the 
left  tail  test,  y^  will  be  smaller  than  yQ.  However, 
when  providing  the  effect  size,  the  user  need  not  consider 
this  condition.  Instead,  the  ISTP  will  determine  the 
direction  once  the  value  of  effect  size  is  given  by  the 
user.  To  keep  the  graphics  simple,  only  the  right  alterna¬ 
tive  y ^  value  is  displayed  for  the  two  tail  test. 

Output  Interpretation.  An  example  is  given  for  the 
case  of  the  test  of  a  mean  of  a  normally  distributed  random 
variable  when  a  is  unknown.  X,  the  sample  size  and  the 
sample  standard  deviation,  are  given  as  12.5,  15  and  2.3. 
yQ  is  given  as  11.0.  The  desired  level  of  type  I  error  is 
presumed  to  be  0.05  and  the  effect  size  is  1  for  this 
right  tail  test.  Figures  36  through  38  display  the  computer 
graphics  produced  by  the  ISTP. 

Figure  36,  the  first  screen,  shows  the  relationship 
between  the  populations  assuming  the  null  hypothesis  is 
true  (smooth  line)  and  assuming  the  alternative  hypothesis 
is  true  (star  line) .  Although  the  standard  deviation  is 


Statistical  Hypothesis 


Fig.  36.  The  Statistical  Hypothesis 


Likelihood  Ratio  Function  and  Test  of  the  Statistical  Hypothesis 


unknown,  a  can  be  estimated  by  the  sample  standard  devia¬ 
tion.  The  mean  of  the  alternative  population  is  12  because 
the  effect  size  is  set  to  1  and  this  is  a  right  tail  test. 

Figure  37,  the  second  screen,  shows  the  likelihood 
ratio  function  and  the  T  distribution  under  the  null  hypo¬ 
thesis  and  under  the  alternative  hypothesis.  The  T  criti¬ 
cal  value  is  1.761732  and  the  likelihood  ratio  is 
0.2227332  at  the  T  critical  value.  The  two  T  distributions 
show  that  the  type  I  and  type  II  errors  are  0.05  and 
0.5172738,  respectively.  The  area  representing  type  I 
error  is  to  the  right  side  of  the  critical  value.  It 
represents  the  probability  of  rejecting  Hq  when  the  Hq 
is  true.  The  area  for  type  II  error,  on  the  other  hand, 
is  to  the  left  side  of  the  critical  value.  This  represents 
the  probability  of  accepting  Hq  when  Hq  is  false. 

Figure  38,  the  third  screen,  shows  the  power  func¬ 
tion  and  the  decision  and  final  results  of  the  test.  The 
power  of  the  test  when  the  effect  size  is  l(p  =  12)  is 
0.482726,  which  is  equal  1-0.  The  computed  value  of  the 
test  statistic,  T,  falls  to  the  right  of  the  T  critical 
value.  Since  the  test  statistic  T  (2.52586)  is  larger  than 
the  T  critical  value  (1.761732),  Hq  must  be  rejected.  The 
prob  value  is  0.0121122.  It  can  be  compared  directly  to 
the  type  I  error.  If  the  prob  value  is  larger  than  the 
type  I  error,  Hq  should  be  rejected. 


Power  Function.  For  a  Z  test,  the  power  can  be 
computed  using  the  Z  table  or  S  function  pnorm.  However, 
"there  are  no  such  simple  formulae  for  the  T  test.  This 
is  because  the  probability  distribution  of  T  when  y  #  yQ 
is  very  complicated"  (9:263).  Fortunately,  the  probabili¬ 
ties  of  T  can  be  computed  by  the  ISTP  using  IMSL.  Conse¬ 
quently,  the  ISTP  provides  the  user  with  the  opportunity 
of  computing  the  power  for  the  T  test  and  obtaining  the 
power  function.  Macro  ?power  which  can  be  called  by  menu 
selection  or  by  direct  macro  selection,  is  listed  in 
Table  18. 

Extension  to  FORTRAN .  A  double  integration  routine 
DBLIN  (11: DBLIN  1-3)  is  used  to  estimate  a  bivariate  CDF 
from  its  known  bivariate  PDF.  The  non-central  T  distribu¬ 
tion  probability  routine  MDTN  (12:MDTN  1-2)  is  executed 
to  compute  the  CDF  and  estimate  the  PDF  of  a  non-central  T 
random  variable.  These  FORTRAN  routines  are  linked  to  S 
through  an  S  interface  routine  (4:3-40).  For  example,  by 
letting  bvn. i  be  the  interface  routine  and  bvn . f  be  the 
FORTRAN  routine  and  the  new  function  be  called  bvnorm  in 
the  interface  routine,  then  the  new  function  bvnorm  can  be 
defined  by  the  following  procedure  (page  130) : 


TABLE  18 


DESCRIPTIONS  OF  MACROS  FOR  THE  POWER  FUNCTIONS 


Type  of 
Function 

Direction 

Macro  (arguments) 

Arguments 

Computing 

Power 

(?pwrone) 

Right  tail  test 
?pwrl (mO ,ml , s,n , a) 

MO  :  uo 

Ml  :  y]_ 

s  :  Sample 

St- Dev. 

n  :  Sample  size 

mn  :  Min  y  for 
plot 

mx  :  Max  y  for 
plot 

Left  tail  test 
?pwr2 (mO,ml,s,n,a) 

Two  tail  test 
?pwr3 (mO ,ml , s,n,a) 

Display 

Power 

Function 

( ?pwrtwo) 

Right  tail  test 
?pwra (mO ,s,n,mn,mx) 

Left  tail  test 
?pwrb(mO,s,nfmn,mx) 

Two  tail  test 
?pwrc (mO , s , n ,mn,mx 
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%  S  CHAPTER 

S  chapter  initialized  in  current  directory 

%  S  FUNCTION  bvnorm  bvn.i  bvn.f  /usr/lib/libimsls.a 
bvnorm  initialized. 

%  S  MAKE  bvnorm 
i .bvnorm. C 
bvn . f : 

zbvnor : 
bvn . f : 

bvnormf : 
fl: 
ay: 
by: 

bvnorm  loaded 


Just  before  using  the  new  function  bvnorm  in  S,  the  chapter 
command  must  be  issued. 
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V.  Conclusions  and  Recommendations 

This  chapter  describes  the  lessons  learned  during 
the  development  of  the  ISTP  and  makes  recommendations  for 
current  uses  and  future  research  involving  the  package. 

Conclusions 

The  ISTP  was  developed  to  fulfill  the  immediate 
need  for  a  tutorial  type  package  to  support  AFIT  statis¬ 
tics  courses.  Furthermore,  the  ISTP  was  designed  to 
accommodate  users'  demands  for  different  levels  of  involve¬ 
ment  with  the  package.  The  student  who  wants  to  use  the 
ISTP  package  in  a  passive  learning  mode  can  do  this  by 
taking  advantage  of  its  menu  capabilities.  On  the  other 
hand,  the  individual  who  wants  access  to  the  ISTP  to  expand 
his  knowledge  of  statistics  can  study  such  concepts 
graphically  using  the  macros  of  the  ISTP  as  well  as  other 
functions  in  S.  Finally,  if  the  user  has  a  very  strong 
quantitative  background  and  computer  experience,  he  is 
encouraged  to  modify  and  extend  the  core  modules  of  the 
ISTP  package.  For  purpose  of  discussion,  the  aforemen¬ 
tioned  types  of  user  involvement  with  S  and  the  ISTP  will 
be  classified  as  level  1,  level  2,  and  level  3,  respec¬ 
tively  . 

During  level  1  involvement  with  the  ISTP,  the 
student  can  play  with  the  ISTP  to  discover  what  shape  a 


member  of  a  probability  distribution  family  has  or  to  reveal 
the  significance  of  a  transformation  of  a  random  variable 
on  the  testing  process.  Facilitating  participation  at 
this  level  is  critical,  because  the  traditional  lecture/ 
lab  approach  to  learning  statistics  fails  to  motivate  the 
student's  desire  to  learn  statistics  the  way  this  tutorial 
package  can.  The  ISTP  allows  the  user  to  approach  statis¬ 
tical  thinking  in  a  way  that  minimizes  the  fear  of  failure 
by  continuous  feedback  facilitating  immediate  rectification 
of  a  mistaken  concept. 

Once  motivated  by  level  1  experiences,  the  user  can 
involve  himself  in  an  active  learning  process  by  directly 
invoking  selected  macros  of  the  ISTP.  This  direct  use  of 
macros  offers  the  user  an  opportunity  to  master  and 
embellish  the  tutorial  material  encompassed  by  the  ISTP 
package.  Passive  involvement  with  the  ISTP,  promoted  by 
level  1  learning  experiences,  can  become  exceedingly  burden¬ 
some  to  the  sophisticated  user.  Direct  calling  of  macros, 
in  lieu  of  using  menus,  builds  the  user's  confidence  in 
his  mastery  of  statistics  and  promotes  a  creative  relation¬ 
ship  with  the  package.  The  breadth  of  coverage  of  available 
ISTP  macros  encourages  users,  at  level  2,  to  develop  and 
analyze  the  simulated  data  based  on  real-world  scenarios. 

Level  3  involvement  allows  users  to  create  their 
own  library  of  macros.  To  do  this,  the  user  must  have  the 
capability  of  programming  in  either  FORTRAN  or  C  and  have 


acquired  an  exceptional  education  in  mathematical  statis¬ 
tics.  It  is  at  this  level  of  involvement  that  genuine 
pedagogical  research  can  be  conducted.  Future  level  3 
research  should  continue  to  create  a  pedagogically  attrac¬ 
tive  learning  environment  for  level  1  and  level  2  users. 


Recommendations 

The  final  two  sections  of  this  thesis  will  present 
(1)  how  the  user  can  take  better  advantage  of  the  ISTP's 
current  capability,  and  (2)  additional  areas  future  research 
should  address. 


Recommendations  for  the  User . 

1.  It  is  recommended  that  macros  for  the  four 
subject  areas  covered  by  the  ISTP  be  used  in  conjunction 
with  one  another  so  that  output  from  one  topic  area  can  be 
examined  in  light  of  the  results  produced  by  macros  in 
other  areas.  For  example,  after  generating  random  variates 
from  a  certain  probability  distribution,  the  user  could 
compare  the  histogram  of  the  random  variates  with  the  theo¬ 
retical  shape  of  the  probability  distribution  to  determine 
the  adequacy  of  the  fit. 

2.  It  is  recommended  that  the  ISTP  be  routinely 
accessible  to  any  user.  Adding  the  macros  of  the  ISTP 

to  the  S  system  directory  will  greatly  expand  the  current 
capabilities  of  S. 


j  -  .S’, 


3.  It  is  recommended  that  users  evaluate  the 


reasonableness  of  inputs  they  give  to  the  ISTP.  For 
example,  if  a  student  tries  to  transform  random  variables 
by  requesting  an  extremely  narrow  interval  width  or  very 
large  numbers  of  intervals,  the  time  it  takes  to  solve  a 
problem  may  be  significant.  The  user  should  keep  in  mind 
that  the  purpose  of  the  ISTP  is  to  provide  conceptual  under¬ 
standing  for  each  topic,  and  not  to  provide  extended  compu¬ 
tational  capability. 

4.  Users  should  be  encouraged  to  develop  their 
own  macros  as  they  gain  experience  with  S  and  the  ISTP. 

Such  macros  can  be  stored  in  the  position  2  library. 

5.  It  is  recommended  that  all  users  try  to  reach 
at  least  level  2  involvement  with  the  ISTP.  S  is  a  very 
good  tool  for  doing  statistics.  When  users  can  directly 
access  macros  of  the  ISTP,  S's  advanced  features  can  play 
a  more  significant  role  in  the  study  of  statistical  con¬ 
cepts.  Therefore,  once  a  user  gets  comfortable  using  the 
ISTP  as  a  menu-driven  system,  it  is  recommended  that  he  make 
direct  use  of  macros. 


Recommendations  for  Future  Research.  The  capa¬ 
bility  of  the  ISTP  should  be  extended  in  all  areas  addressed 
by  the  current  version.  Additional  macro  packages  should 
be  built  to  cover  the  area  of  axiomatic  probability, 

Bayesian  estimation  and  inference,  and  the  full  spectrum  of 
multivariate  technologies  and  probability  distributions. 
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The  ISTP  should  be  equipped  to  provide  graphical 
output  to  all  sorts  of  graphics  devices,  from  standard  CRT 
terminals  to  the  more  sophisticated  work  stations  currently 
available  in  AFIT.  Color  graphics,  animation  and  windowing 
need  to  be  introduced  to  provide  a  foundation  for  extra¬ 
ordinary  enhancement  of  level  1  and  level  2  involvement 
with  the  ISTP. 

Finally,  to  ensure  that  the  ISTP  runs  fast  enough 
to  cope  with  the  computations  needs  of  forthcoming  graphic 
packages,  consideration  should  be  given  to  porting  the 
entire  ISTP  package  to  super  computers  available  in  AFIT 
and  the  ASD  computer  center  at  Wright  Patterson  Air  Force 
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MACRO  mber( 

x/?PROMPT( X  value;  0  or  1  :  )/, 
p/?PR0MPT( P  of  X  =  1  :  )/) 

# 

#  This  Is  a  macro  to  compute  the  PMF  for  Bernoulli  Distribution 

# 

({ 

?T(x)_x 

?T(p)_p 

?T  (?T(p)“?T(x))*((  1  -?T( p) )~(  1-?T(x))) 
rmT?T(x) ,?T(p) ,?T,value=?T) 

}) 

END 


MACRO  rber( 

n/?PROMPT( How  many  R.V.  ?  ;)/, 

p/?PROMPT( Probability  of  X  =  1  :)/) 

(t 

* 

#  This  is  a  Macro  to  generate  random  variate  for 

#  Bernoulli  distribution. 

# 

?T(  n)_n 
?T(p)_p 

?T( rn)  run  if ( ?T(n) ) 

?T  repTo,?T(n) ) 

?tT?T( rn)<=?T( p)  ]_1 

?T[?T(rn)>?T(p)]_0 

rm(?T(n) ,?T(p) ,?T(rn) ,?T,value=?T) 


MACRO  mgeo( 

x/?PROMPT( Number  of  Failure  before  1st  Success  :  )/, 
p/?PROMPT( Probab il ity  of  Success  :  )/) 

# 

#  This  is  Macro  for  Geometric  Distribution 

#  0  <=  p  <=  1 

#  x  =  0, 1 ,2,3,  •  •  • .  ,  inf  in  ite  integer 

4  where,  x  is  the  number  of  failure  before  getting  first 

#  success. 

# 

({ 

?T(x)_x 

?T(p)“p 

?T  ?TrP)«((1-?T(p)r?T(x)) 
rmT?T(x) ,?T( p) ,?T, value=?T) 


MACRO  geo( 

x1/?PR0MPT(Min  Number  of  Failure  before  1st  Success  :  )/ 
x2/?PR0MPT(Max  Number  of  Failure  before  1st  Success  :  )/ 
p/?PROMPT( Probab il ity  of  Success  :  )/) 

# 

#  This  Macro  is  to  compute  CDF  for 
4  geometric  distribution. 

4 

({ 

?T  sum(?mgeo( (xl :x2) ,p) ) 
rmT?T,  value=?T) 


MACRO  rgeo( 

n/?PROMPT( How  many  R.V.  ?  :  )/, 

p/?PROMPT( Probab il  ity  of  Success  :  )/) 

({ 

# 

#  This  is  a  Macro  to  generate  random  variate  for 

#  Geometric  distribution. 

# 

?T(n)_n 
?T(p)  p 

?T(  x  )_max(  30 , ce  il  ing(  5/?T(  p ) ) ) 

# 

#  To  compute  pmf,  reasonable  range  should  be  determined. 

#  The  longer  range,  the  better  precision.  However,  there 

#  should  be  trade  off  between  precision  and  efficiency. 

#  From  0  to  5/P  will  give  sufficient  precision, 

#  because  the  cummulative  probability  up  to  5/P  is 

#  approximately  1  except  very  small  P.  Such  a  case  of 

#  small  lambda,  pmf  will  be  computed  from  0  to  30, 

#  instead  5/P. 

# 

?T(pm)_?mgeo(0:?T(x) ,?T(p)) 

?T( cm)_cumsum( ?T( pm) ) 

?T(cm)~?T(cm)[?T(cm)<=1] 

# 

#  PMF  for  Geometric  probability  can  be  computed  from  the 

#  Macro  ?mgeo,  and  then  compute  its  cummulative  probability 

#  by  us  ing  "cumsum" 

4 

?T(rn)_runif(?T(n)) 

# 

#  Generate  N  random  numbers  to  compare  these  numbers  to  the  cdf, 

#  then  find  the  position  in  the  vector  and  subtract  by  1  to  make 
4  them  the  geometric  variable,  which  are  x  =  0, 1 ,2, . .  .n, . . . 

# 

?T  ?cmpsn(?T( cm) ,?T( rn) ) -1 

rmT?T(n) ,?T(p) ,?T(pm) ,?T(cm) ,?T( rn) ,?T, value=?T) 


v 


MACRO  ddunif( 

x/?PR0MPT(X  value 

:  )/, 

1/?PR0MPT( Lower 

bound 

:  )/. 

u/?PR0MPT( Upper 

bound 

:  )/) 

a 

# 

#  This  Is  a  Macro  to  compute  the  pmf  for  discrete 

#  Uniform  distribution. 

# 

?T(x)_x 
?T(1)~1 
?T( u)_u 

?T_ifelse(  (?T(x) >=?T( 1)  &  ?T(x)<=?T(u) ) ,  1/(?T(u)-?T(l)+1),  0  ) 
rm  (?T(x) ,?T( 1) ,?T(u) ,?T,value=?T) 

}) 

END 


MACRO  pdun if ( 

x/?PROMPT( Quant  lie  value  :  )/, 

1/?PR0MPT( Lower  bound  :  )/, 
u/?PROMPT( Upper  bound  :  )/) 

({ 

# 

#  This  is  a  Macro  to  compute  the  cdf  for  discrete 

#  Uniform  distribution. 

# 

?T(x)  x 
?T(lfl 
?T(u)~u 

?T_ifelse(  ?T(x)<?T( 1) ,  0,  ifelse(?T(x)<?T(u) , 

(?T(x)-?T(l)+l)/(?T(u)-?T(l)+1),  1)  ) 
rm  (?T(x) ,?T(1) ,?T(u) ,?T,value=?T) 

}) 

END 
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MACRO  rdunif( 

n/?PROMPT( How  many  R.V.  ?  :  )/, 

l/?PROMPT( Lower  bound  :  )/, 

u/?PROMPT( Upper  bound  :  )/) 

# 

#  Th  is  Maco  is  to  generate  random  variate  for 

#  discrete  uniform  distribution. 

# 

({ 

rv  run  if  (n) 

?tTi)_i 

?T(u)  u 

int_?T(u)-?T( 1)+1 
mass  1/  int 
pmf_rep(mass,  int) 
cdf_cumsum( pmf ) 

?T  ?cmpsn(cdf,  rv)+?T(l)-1 

rmr?T(l) ,?T(u) ,rv,  int,mass,pmf,cdf,?T, values ?T) 

}) 


MACRO  mb in( 

x/?PROMPT( Number  of  Success  :  )/, 
n/?PR0MPT( Number  of  Trial  :  )/, 
p/?PROMPT( P  of  Success  :  )/) 

# 

#  This  is  a  macro  to  compute  the  PMF  for  binomial  probability 

# 

({ 

?T( x)_x 
?T( n)_n 
?T(p)_p 

?T_ifelse(  ?T(x)<?T( n)+1 ,  exp( ( lgarama( ?T( n)+1 ) -lgamma( ?T( x)+1 ) 
lgamma( ?T( n) -?T( x)+1 ) )+(?T(x)*log(?T(p) ) )+ 

( (?T(n)-?T(x) )*log( 1-?T(p) ) ) )  ,0) 

#  When  x  greater  than  n,  0  will  be  the  answer. 
rm( ?T(x) ,?T(n),?T(p) ,?T, value=?T) 

}) 

END 


MACRO  b  in( 

b/?PR0MPT( Smallest  Number  of  S  :  )/, 
e/?PR0MPT( Largest  Number  of  S  :  )/, 
n/?PROMPT( Number  of  Trial  :  )/, 

p/?PR0MPT( Probability  of  S  :  )/) 

# 


#  This  is  a  Macro  to  compute  CDF  for  binomial  probability 

# 

({ 


?T  sum( ?mb in( b :e,n,p) ) 
rmT?T,value=?T) 


MACRO  rbin( 

m/?PROMPT( How  many  R.V.  ?  :)/, 

n/?PROMPT( Number  of  Trial  :)/, 

p/?PROMPT( Probab  il  ity  of  Success  :)/) 

({ 

# 

#  this  is  a  Macro  to  generate  random  variate  for 

#  Binomial  distribution. 

# 

?T( m)_m 
?T(n)_n 
?T(p)_p 

# 

#  1  trial  of  binomial  probability  is  same  as  the  Bernouli  probability 

#  therefore,  n  trial  of  binomial  is  same  as  the  sum  of  Bernouli  r.v. 

# 

?T( rn)_?rber(?T(n)*?T(m) ,?T(p)) 

?T(rn)  matrix(?T(rn) ,?T(m) ,?T(n) ,byrow=TRUE) 

?T  ?row(?T( rn) ,sum) 

rmT?T(m) ,?T(n) ,?T(p) ,?T(rn) ,?T, value=?T) 


MACRO  mnegbin( 

x/?PROMPT( Number  of  Failure  :  )/, 
r/?PR0MPT( Number  of  Success  :  )/, 
p/?PROMPT(  Probability  of  S  :  )/) 

# 

#  Th  is  is  a  macro  to  compute  the  PMF  for  negative  binonial 

#  probability  distribution 

# 

(t 

?T(x)_x 
?T( r)_r 
?T(p)_p 

?T_exp( lgamma(?T(x)+?T( r) )-lgamma(?T(x)+1 ) -lgamma( ?T( r) )+ 
?T(r)*log(?T(p))+?T(x)*log( 1-?T(p) ) ) 
rm( ?T( x) ,?T(p) ,?T(r) ,?T, value=?T) 

}) 

END 


MACRO  negbin( 

b/?PROMPT( Smallest  Number  of  Failure  :  )/, 
e/?PROMPT( Largest  Number  of  Failure  :  )/, 
r/?PROMPT( Number  of  Success  :  )/, 

p/?PROMPT( Probability  of  Success  :  )/) 

# 

# 

#  This  is  a  macro  to  compute  the  CDF  for  negative  binonial 

#  probability  distribution 

# 

({ 

?T  3um(?mnegbin(b:e,r,p)) 
rmT?T,value=?T) 


MACRO  rnegbin( 

n/?PROMPT( How  many  R.V.  ?  :  )/, 

r/?PROMPT( Number  of  Success  :  )/, 

p/?PR0MPT( Probab il ity  of  Success  :  )/) 

({ 

# 

#  This  Is  a  Macro  to  generate  random  variate  for 

#  Negative  Binomial  distribution. 

# 

?T(n)_n 
?T(r)_r 
7  T ( p)_p 

?T(a)  max(30,ceiling(?T(r)/?T(p))*5) 

?T(pmT_?mb in( ?T( r) , (?T( r) : ( ?T(r)+?T(m) ) ) ,?T( p) ) 

# 

#  PMF  for  negative  binomial  probability  can  be  computed 

#  from  binomial  probability,  let's  say,  we  want  to  know 

#  the  probability  that  R  success  will  accur  out  of  R+m  trial 

#  which  each  trial  has  P  probability  of  success,  then  the  m 

#  is  the  number  of  failure  prior  to  the  R  th  success. 

#  Therefore,  each  pmf  for  from  m=0  to  m=  infinitive  can  be  computed. 

# 

?T(cm)_cumsum(?T(pm) ) 

# 

#  The  sura  of  pmf  for  the  binomial  probability  is  1/P  when  we  compute 

#  the  pmf  from  m=0  to  m=  inf .  However,  if  we  compute  the  pmf  from 
t  m=0  to  m=(5*R/P),  the  sum  of  pmf  can  be  approximately  1/P. 

#  In  case  of  small  m,  30  will  be  replaced. 

# 

?T(cm)_?T(cm)*?T(p) 

# 

#  By  multiplying  P,  the  max  cdf  =  1. 

# 

?T( cm)_?T( cm) [?T(cm)<=1 .0] 

?T(  rn)_run  if(  ?T(n) ) 

# 

#  Generate  N  random  numbers  to  compare  these  numbers  to  the  cdf, 

#  so  that  find  the  position  which  will  ensure  P[i-1]  <  X  <=  P[ij. 

# 

?T_?cmpsn(?T(cm) ,?T(rn))-1 

# 

#  After  finding  out  the  position  in  the  vector  which  will  ensure 

#  PC  i—  1  ]  <  X  <=  PC  i] ,  we  subtract  by  1  to  make  them  the  Negative 

#  Binomial  Variable. 

# 

rm(?T(p),?T(r),?T(n),?T(pm),?T(rn),?T(m),?T(cm),?T,value=?T) 


MACRO  mhyper( 

x/?PROMPT( Number  of  Success  in  Sample  :  )/, 

n/?PROMPT( Sample  size  :  )/, 

M/?PR0MPT( Success  in  Population  :  )/, 

N/?PR0MPT( Population  Size  :  )/) 

# 


#  This  is  a  macro  to  call  another  macro  to  compute  the  PMF  for 

#  hypergeometric  probability  distribution. 

# 

({ 

?T  ?mhyper1(x,n,M,N) 
rmT?T,value=?T) 

}) 

END 


MACRO  mhyper1(x,n,M,N) 

# 

# 

#  Th  is  is  a  macro  to  compute  the  PMF  for  hypergeometr ic 

#  probability  distribution 

# 

({ 

?T_  ifelse(((x<=min(n,M))  &  (x>=(M+n-N) ) ) , 

?T  exp(lgamma(M+1  )-»-lgamma(N-.M+1  )+lgamma(  N-n+1  )+lgamma(n+1 ) 
-lgamma(M-x+1  )-lgamma(x+1  )-lgamma(N-M-n+x-*-1  )-lgamm!'(n-x+1 ) 
-lgamma(N+1 ) ) ,0) 

# 

#  Requirement  for  X:  (M+n-N)  <=  x  <=  min(n,M) 

#  otherwise,  the  probability  is  always  zero 

# 


}) 


rm(?T,value=?T) 


MACRO  hyper( 

x1/?PROMPT(Min  Success  In  Sample  :  )/, 
x2/?PR0MPT(Max  Success  in  Sample  :  )/, 
n/?PR0MPT( Sample  size  :  )/, 

M/?PROMPT( Success  in  Population  :  )/, 

N/?PROMPT(  Population  Size  :  )/) 

# 

#  This  is  a  macro  to  compute  the  CDF  for  hypergeometric 

#  probability  distribution 

# 

({ 

?T  sum(?mhyper1(x1 :x2,n,M,N) ) 
rmZ?T, value=?T) 

}) 

END 
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MACRO  rhyper( 

m/?PROMPT{ How  many  R.V.  ?  :  )/, 

n/?PR0MPT( Sample  Size  :  )/, 

M/?PROMPT( Success  in  Population  :  )/, 

N/?PROMPT(Populat  ion  Size  :  )/) 

({ 

# 

#  This  is  a  Macro  to  generate  random  variate  for 

#  Hypergeometric  distribution. 

# 

?T(m)_m 
?T(n)~n 
?T(M)_M 
?T(N)  N 

?T(mn7_max( 0,?T( n)-?T( N)+?T( M) ) 

?T(mx)_min(?T(n) ,?T(M)) 

?T( pm)_?mhyper 1(?T(mn) :?T(mx)  ,?T(n)  ,?T(M)  ,?T(N) ) 

# 

#  PMF  from  possible  minimum  number  of  success  to  maximum 

#  success  is  computed. 

# 

?T( cm)_cumsum( ?T( pm) ) 

# 

#  Each  cumulative  probability  is  computed  by  cumsum  function. 

# 

?T( rn)_run if (?T(m) ) 

?T_?cmpsn(?T(cm) ,?T(rn) )+?T(mn)-1 

# 

#  Each  random  number  will  be  compared  to  the  CDF  and  returned 

#  in  terms  of  the  position  in  the  CDF  veltor,  therefore,  if  we 

#  add  the  possible  minimum  number  of  success  and  subtract  by  1, 

#  we  can  get  the  random  variate  for  Hypergeometric  distribution. 

# 

rm(?T(m) ,?T(N) ,?T(M) ,?T(n) ,?T(pm) ,?T(rn) ,?T(mn) ,?T(mx) , 

?T(cm) ,?T,value=?T) 
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MACRO  mpoiss( 
x/?PROMPT( X  value  :  )/, 

r/?PROMPT( Lambda  :  )/) 


#  Th  is  is  a  macro  to  compute  the  PMF  for  poisson 

#  probability  distribution 

# 

(t 

?T(x)  x 
?T( r)_r 

?T_exp( -?T( r)+?T(x)*log( ?T( r) ) -lgamma( ?T(x)+1 ) ) 
rm(?T(x) ,?T( r) ,?T,value=?T) 

}) 

END 


MACRO  poiss( 

x1/?PR0MPT(Min  X  value  :  )/, 
x2/?PR0MPT( Max  X  value  :  )/, 
r/?PROMPT( Lambda  :  )/) 

# 

#  This  is  a  macro  to  compute  the  CDF  for  poisson 

#  probability  distribution 

# 

({ 

?T  sum(?mpoiss(x1 :x2,r)) 
rmI?T, values? T) 

}) 

END 
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MACRO  rpoiss( 

n/?PROMPT( How  many  R.V.  ?  :  )/, 

lm/?PROMPT( Lambda  :  )/) 

({ 

# 

#  This  Is  a  Macro  to  generate  random  variate  for 

#  Poisson  distribution. 

# 

?T(n)  n 
?T( l)_lm 

?T( x)_max( 30 ,ce il ing( 5*?T( 1) ) ) 

# 

#  To  compute  pmf,  reasonable  range  should  be  determined. 

#  The  longer  range,  the  better  precision.  However,  there 

#  should  be  trade  off  between  precision  and  efficiency. 

#  From  0  to  5*lambda  will  give  sufficient  precision, 

#  because  the  cummulative  probability  up  to  5*lambda 

#  is  approximately  1  except  very  small  lambda.  Such  a 

#  case  of  small  lambda,  pmf  will  be  computed  from  0  to  30, 

#  instead  5* lambda. 

# 

?T(pm)_?mpoiss(0:?T(x) ,?T(1) ) 

?T(cm)_cumsum(?T(pm) ) 

?T(cm)_?T(cm)[?T(cm)<=1] 

# 

#  PMF  for  Poisson  probability  can  be  computed  from  the 

#  Macro  Tmpoiss,  and  then  compute  its  cummulative  probability 

#  by  using  function  cumsum. 

# 

?T(rn)_runif(?T(n) ) 

# 

#  Generate  N  random  numbers  to  compare  these  numbers  to  the  cdf, 

#  then  find  the  position  in  the  vector  so  as  to  determ  in  the 

#  random  variate  by  subtracting  1  from  the  position. 

# 

?T  ?cmpsn(?T(cm) ,?T(rn) )-1 

rmT?T(n) ,?T(1) ,?T(pm) ,?T(cm) ,?T(rn) ,?T, value=?T) 

}) 


(X  value  0,  1  or  2  :  )/, 

T( Probab  11  Ity  of  X  =  0  :  )/, 

T( Probab  11  ity  of  X  =  1  :  )/) 


a  Macro  to  compute  pmf  for  ReyLamb  distribution, 
as  two  parameters  and  possible  outcomes  are  0,  1,  and  2 
l  probability  associated  with  0,  P2  is  a  probability 
ited  with  1  and  (1-P1-P2)  is  a  probability  associated 
tcome  3*  P1+P2  should  be  equal  to  or  less  than  1. 


>1 

>2 

T(x))*?T(1)+?T(x)*?T(2)+?T(x)*( 1-?T(x) )*( 1 .5*?T(2)-.5) 
x) ,?T( 1 ) ,?T(2) ,?T, value=?T) 


iylam( 

'(How  many  R.V.  ?  :  )/, 

'T( Probability  of  X  =  0  :  )/, 

'T( Probab il ity  of  X  =  1  :  )/) 


a  Macro  to  generate  random  variate  for 
d  istr  ibut  ion. 


Pi 

P2 

_?mreylam(  0 :2,?T(  pi )  ,?T( p2 ) ) 
’cum3um(?T(pm) ) 


MACRO  dex( 

x/?PROMPT( X  value  :  )/, 
lm/ ?P ROMP T{ Lambda  :  )/) 

# 

#  Th is  Is  a  macro  to  compute  the  PDF  for  exponent ial 

#  probability  distribution 

({ 

?T  ?dex1(x,lm) 
rmT?T,  value=?T) 

}) 

END 


MACRO  dex1(x,lm) 

# 

({ 

?T  lm*exp( -lm*x) 
rmT?T,value=?T) 

}) 

END 


MACRO  pex( 

x/?PROMPT( Quantile  :  )/, 
r/?PROMPT( Lambda  :  )/) 

# 

#  Th  is  is  a  macro  to  compute  the  CDF  for  exponent ial 

#  probability  distribution 

({ 

?T  ?pex1(x,r) 
rmT?T,  value=?T) 

}) 

END 


MACRO  pex1(x,r) 

({ 

?T  1-(exp(-(r*x) ) ) 
rmT?T,value=?T) 

}) 

END 
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MACRO  qex( 

p/?PROMPT( Cumulat ive  Prob.  :  )/, 
r/?PR0MPT( Lambda  :  )/) 

# 

#  This  is  a  macro  to  compute  the  Qunatile  for  exponential 

#  probability  distribution 
(t 

?T  (-log(1-p))/r 
rmr?T,value=?T) 

}) 

END 


MACRO  rex( 

n/?PROMPT( How  many  R.V.  ?  :  )/, 

r/?PROMPT( Lambda  :  )/) 

({ 

# 

#  Th  is  is  a  Macro  to  generate  random  variates  for 

#  exponential  distribution. 

# 

?T  ?qex(runif(n)  ,r) 
rmT?T, value=?T) 


MACRO  gamfun( 
x/?PROMPT( X  value  :  )/, 
a/? PROMPT( Alpha  :  )/, 
b/?PROMPT(Beta  :  )/) 

# 

#  This  is  a  macro  to  call  another  macro  to  compute  the  pdf  for 

#  gamma  probability  distribution. 

# 

(t 

?T  ?gamfun1 (x, a,b) 
rmT?T,value=?T) 

}) 

END 


MACRO  gamfun1(x,a,b) 

4 

#  This  is  a  macro  to  compute  the  PDF  for  gamma 

#  probability  distribution  with  two  parameters 
(t 

?T_ifelse(x!=0,exp( ( a-1 )*log(x)-x/b-a*log( b)-lgamma( a) ) , 
ifelseC  a>1 ,0,  ifelse( a==1 , 1/b,dgamma( 0, . 1 ) ) ) ) 

#  If  x=0,  when  a>1  pdf  =  0,  when  a=1  pdf=1/b,  when  a< 1  pdf=inf 
rm(?T,value=?T) 

}) 
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MACRO  dwe ib( 

x/?PR0MPT( X  value  :  )/, 

a/?PROMPT( Shape  Parameter  :  )/, 
b/?PROMPT( Scale  Parameter  :  )/) 

# 

#  This  is  a  macro  to  call  another  macro  to  compute  the  PDF  for  weibull 

#  probability  distribution. 

# 

(t 

?T  ?dweib1(x,a,b) 
rmT?T,value=?T) 

}) 

END 


MACRO  dweibl(x,a,b) 

# 

#  This  is  a  macro  to  compute  the  PDF  for  weibull 

#  probability  distribution 

(  { 

?T_ifelse(x! =0,exp( log( a)+( a-1 )*log(x)-(x/b)~a-a*log( b) ) , 
ifelse( a> 1 ,0,  ifel3e( a==1 , 1/b,dgamma( 0, . 1 ) ) ) ) 

#  If  x=0,  when  a>1  pdf  =  0,  when  a=1  pdf=1/b,  when  a< 1  pdf=inf 
rm(?T,value=?T) 

)) 

END 


MACRO  pweib( 

x/?PR0MPT( Quantile  value  :  )/, 

a/?PROMPT(Shape  Parameter  :  )/, 

b/?PR0MPT( Scale  Parameter  :  )/) 

# 

#  This  is  a  macro  to  compute  the  CDF  for  weibull 

#  probability  distribution 

({ 

?T(  x)_x 
?T( a)_a 
?T( b)  b 

?T  1  -Texp(  -((?T(x)/?T(b))~?T( a) ) ) ) 
rmT?T, value=?T) 

}) 

END 
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MACRO  qwe ib( 

p/?PR0MPT( Cumulat ive  Prob. 

:  )/, 

a/?PR0MPT( Shape  Parameter 

:  )/, 

vX-So 

b/?PR0MPT( Scale  Parameter 

:  )/) 

i  i 

# 

.  .'V  ^ 

*  »*•  fc*»  * 

#  This  is  a  macro  to  compute 

the  Quantile  for  weibull 

-  .  **.  *" « 

#  probability  distribution 

({ 

>>:X 

?T(p)  P 

?T(  a)  a 

?T( b)_b 

?T  exp( log( ?T( b) )+( 1/?T( a) )*( log( -log( 1-?T( p) ) ) ) ) 
rmT?T, value=?T) 

}) 


END 


MACRO  rweib( 

n/?PROMPT( How  many  R.V.  ?  :  )/, 

a/?PROMPT( Shape  Parameter  :  )/, 

b/?PROMPT( Scale  Parameter  :  )/) 

({ 

# 

#  This  Macro  is  to  generate  Weibull  Random  Variate. 

# 

?T(n)_n 
?T(  a)_a 
?T(b)_b 

?T  ?qwe ib( run  if (?T(  n) ) ,?T(  a) ,?T(  b) ) 
rmT?T(n) ,?T( a) ,?T(b) , ?T,value=?T) 

}) 

END 
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MACRO  ptrian( 

xv/? PROMPT( Quantile  :  )/, 
av/?PROMPT( Lower  Bound  :  )/, 
cv/?PR0MPT( Upper  Bound  :  )/, 
bv/?PROMPT(Mode  :  )/) 

({ 

# 

#  This  Macro  is  to  compute  cdf  for  Triangular  distribution. 

#  where,  x  :  quantile  value  (  a  <=  x  <=  c  ) 

#  av :  lower  bound 

#  cv:  upper  bound 

#  bv:  mode 

t 

?T(x)_xv 
?T( a)_av 
?T(u)_cv 
?T(b)  bv 

if(?TTx)<?T(  a)  I  ?T(x) >?T(u) )  fatal("X  value  can't  be  smaller  than 
lower  bound  or  greater  than  upper  bound") 
if(?T(a)>?T(b)  !  ?T(u)<?T(b))  fatal("Mode  can't  be  smaller  than 
lower  bound  or  greater  than  upper  bound") 
?T_ifelse(?T(x)<=?T(b),  ( ?T(  x) -?T(  a) )“2/(  ( ?T( b)-?T( a) )«( ?T(u) -?T( a) ) ) , 
1-(?T(u)-?T(x))~2/((?T(u)-?T(b))*(?T(u)-?T(a)))) 
rm  (?T(x) , ?T( a) ,?T(b) ,?T(u) ,?T, value=?T) 

}) 

END 
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MACRO  qtr ian( 

pv/?PROMPT( Cum.  Prob.  :  )/, 
av/?PR0MPT( Lower  Bound  :  )/, 
cv/?PROMPT( Upper  P',ind  :  )/, 
bv/?PROMPT(Mode  :  )/) 

({ 

# 

#  This  Macro  is  to  compute  quantile  for  Triangular  distribution. 

#  where,  pv:  cummulative  probability  (0  <=  p  <  =  1) 

#  av:  lower  bound 

#  cv:  upper  bound 

#  bv:  mode 

# 

?T(p)  pv 
?T( a)~av 
?T(u)_cv 
?T( b)  bv 

if(?TTp)<0  !  ?T(p)>1)  fatal("P  value  can't  be  smaller  than  0) 
or  greater  1") 

if(?T( a)>?T(b)  i  ?T(u)<?T(b))  fatal("Mode  can't  be  smaller  than 
lower  bound  or  greater  than  upper  bound") 

?T_ifelse( ?T( p)<=( ?T( b) -?T( a) )/(?T(u)-?T( a) ) ,  ?T( a)+sqrt( ?T( p)* 
( ( ?T( b) -?T( a) )*?T( u) -?T( a)*?T( b)+?T( a )~2)), 

?T(u)-sqrt( ( 1-?T( p) )*( ?T( u)-?T( b) )*( ?T(u) -?T( a) ) ) ) 
rm  (?T(p) ,?T( a • ,?T(u) ,?T( b) ,?T, value;?T) 

}) 


t  v\ 


MACRO  rtrian( 

nv/?PROMPT( How  many  R.V.  ?  :  )/, 

av/?PR0MPT( Lower  Bound  :  )/, 

cv/?PROMPT( Upper  Bound  :  )/, 

bv/?PR0MPT( Mode  :  )/) 

({ 

# 


#  This  Macro  is  to  generate  random  variates  for  Triangular 

#  distribution, 

#  where,  nv:  number  of  random  variates 

#  av:  lower  bound 

#  cv:  upper  bound 

#  bv:  mode 

# 

?T(n)_nv 
?T(  a)_av 
?T(u)_cv 
?T( b)  bv 

if(?TTa)>?T(b)  I  ?T(u)<?T(b))  fatal("Mode  can't  be  smaller  than 
lower  bound  or  greater  than  upper  bound") 

?T_?qtr ian( c( run  if (?T( n) ) ) ,?T( a) ,?T(u) ,?T( b) ) 
rm  (?T(n) ,?T(a),?T(u) ,?T(b) ,?T, value=?T) 

}) 

END 
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MACRO  dbinorm( 
mx/?PROMPT(MU  1  :  )/. 

sx/?PROMPT( Sigma  1  :  )/, 

ny/?PROMPT(MU  2  :  )/, 

sy/?PR0MPT( Sigma  2  :  )/, 


r/?PROMPT(Coeff  ic  lent  of  Correlation  :  )/, 
x/?PROMPT( Quantile  X  :  )/, 
y/?PROMPT( Quantile  Y  :  )/) 

({ 

?dbinorm1(mx,sx,my,sy,r,x,y) 

}) 

END 


MACRO  dbinorm1(mx,sx,my,sy,r,x,y) 

# 

#  This  is  a  macro  to  get  the  PDF  for  both  Independent  and 

#  Dependent  Bivariate  Normal  Probability 

# 

(l 

kl  1/(  2*p i*sx*sy*sqrt( 1-r~2) ) 
k2  —  1 / ( 2  * ( 1-r*2)) 

?T" k1*exp(k2*(  ( ( x-mx) /sx)'‘2-2*r*(  ( x-mx) /sx)»(  ( y-my ) /sy) 
~  +((y-my)/sy)'s2)) 
rm(?T,value=?T) 

}) 

END 
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MACRO  rbinormC 

nv/?PROMPT( How  many  R.V.  ? 

:  )/, 

mxv/?PROMPT(Mean  of  X 

:  )/, 

sxv/?PROMPT( Sigma  of  X 

:  )/. 

myv/?PROMPT(Mean  of  Y 

:  )/, 

syv/?PROMPT( Sigma  of  Y 

:  )/, 

rho/?PROMPT( Correlat ion 

:  )/) 

({ 

# 

#  This  is  to  generate  random  variate  for  Bivariate 

#  Normal  d  istr  ibut  ion. 

# 

?T(n)  nv 

?T(mx7_mxv 

?T(sx)_sxv 

?T(my)_myv 

?T(sy)~syv 

?T(rh)_rho 

?T( rh)_c( 1 ,?T( rh) ,?T( rh) ,  1 ) 

?T( rh)_matr ix( ?T( rh) ,2,2,byrow=TRUE) 

?T(m)  c( ?T(mx) ,?T(my) ) 

?T( sd7_c(?T( sx) ,?T( sy) ) 

?T( v)_?T( rh)* outer (?T( sd) ,?T(sd)) 

?T(x)  matrix(rnorm(?T(n)*2) ,?T(n) ,2) 

?T_?tTx) 3t*chol(?T(  v)  )+matr  ix(?T(m)  ,?T(n)  ,2) 

?T_ t(?T) 

rmT?T(n) ,?T(mx) ,?T(sx) ,?T(my) ,?T(sy) ,?T(rh) , 
?T(m),?T(sd),?T(v),?T(x),?T,value=?T) 


1) 


MACRO  rbigamma( 

n/?PR0MPT( How  many  R.V.  ?  :  )/, 
ax/?PROMPT( Alpha  1  :  )/, 
ay/?PROMPT( Alpha  2  :  )/) 

# 

#  This  la  a  Macro  to  generate  Random  Deviates  for 

#  Independent  Standard  Gamma  Probability 

# 

(l 

?T(n)  n 
?T( axT  ax 
?T(  ay)“ay 
?T(q)_run  if(?T(n)) 

# 

#  ?T(q)  :  Random  CDF  for  bivariate  gamma  probability 

# 

?T(cx)_runif(?T(n) ,?T(q) ,1) 

# 

#  ?T(cx)  :  Random  CDF  for  X 

# 

?T(ey)  ?T(q)/(?T(cx) ) 

# 

#  ?T(cy)  :  Random  CDF  for  Y 
t 

?T(qx)_qgamma(?T(cx) ,?T( ax) ) 

?T(qy)_qgamma(?T(cy) ,?T( ay) ) 

?T  rb  ind(  ?T(  qx)  ,?T(  qy ) ) 

rmT?T(ax) ,?T(ay) ,?T(n) ,?T(q) ,?T(cx) , 

?T( cy) ,?T(qx) ,?T(qy) ,?T, values?T) 


MACRO  cmpsn(x,a) 

({ 

# 

#  This  Is  Macro  to  find  out  the  first  position  in  the  vector 

#  which  will  be  greater  than  the  given  "a"  value. 

#  If  given  value  is  greater  than  any  value  in  x,  len(a)  +  1  be 

#  the  return  value. 

#  Therefore,  it  is  usefull  to  find  the  quantile  value 

#  for  discrete  distribution. 

# 

?T(x)_x 

?T(a)_a 

?T(x)_matrix(?T(x) ,len(?T{ a) ) ,len( ?T(x) ) ,byrow=T) 
?T(x)_ifelse(?T(x)>=?T(  a) ,  0  ,  1) 

?T  ?row(?T(x) ,sum)+1 
rmT?T(x) ,?T( a) ,?T,value=?T) 


MACRO  d  1st 

# 

#  This  MAcro  Is  to  select  univariate  or  bivariate 

#  distribution. 

# 

({ 

item  c( "Univariate  distribution", 

“  "Bivariate  distribution") 
act ion_c(  "?uvd", 

"?bvd") 

menu(  item,  action) 
rm(  item,  action) 


MACRO  uvd 

({ 

item_c( "DISCRETE  DISTRIBUTION" , 
"CONTINUOUS  DISTRIBUTION", 
"QUIT") 

act  ion_c( "?d is" , "?cont" , "q") 
menu (  item  ,  action) 
rm(  item,  action) 

}) 

END 


A  i 


V  >  \ 


MACRO  d  Is 

(  { item  c(  "BINOMIAL  DISTRIBUTION" , 

—  "NEGATIVE  BINOMIAL  DISTRIBUTION  , 

"HYPERGEOMETRIC  DISTRIBUTION", 

"UNIFORM  DISTRIBUTION", 

"POISSON  DISTRIBUTION", 

"GO  TO  PREVIOUS  STEP") 
act  ion_c(  "?b  inom" , 

"?negbinom", 

"?hypergeo", 

"Vuniform", 

"?poiason", 

"?uvd") 

menu (  item  ,  action) 
rm(  item,  action) 

>) 

END 
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MACRO  cont 

( 1  item  c( "NORMAL  DISTRIBUTION" , 

~  -UNIFORM  DISTRIBUTION", 

"LOG-NORMAL  DISTRIBUTION", 
nT  DISTRIBUTION", 

"EXPONENTIAL  DISTRIBUTION", 
"GAMMA  DISTRIBUTION", 

"WEIBULL  DISTRIBUTION", 

"BETA  DISTRIBUTION", 

"CHISQUARE  DISTRIBUTION", 
"P  DISTRIBUTION", 

"GO  TO  PREVIOUS  STEP") 
ac  t ion_c ("?  normal " , 

"?cuniform", 

"Tlognorm", 

"?td  is", 

"?expon", 

"?gammaaet" , 

"?we ibull”, 

"?betaset”, 

"?ch  isquare", 

"?fd  la", 

"?uvd " ) 

menu(  item  ,  action) 
rm(  item,  action) 

1) 

END 


•VM 


’  V.v'.v'-.".' 
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MACRO  binom 

({ 

item  c( "SHAPE  OF  DISTRIBUTION", 
"SHAPE  COMPARISON", 

"RETURN  TO  PREVIOUS  STEP") 
act ion_c(  "?b inplot", 

"?ob  inplot", 

"?d  is") 

menu(  item, act  ion) 
rm(  item,  action) 

}) 

END 


MACRO  b inplot( 
n/?PROMPT(N  VALUE  :  )/, 
p/?PROMPT( P  VALUE  :  )/) 

# 

#  This  is  a  Macro  to  plot  the  binomial  probability  distribution 
4 

({ 

par(mfrow=c( 1,1),  oma=c(0,2,0,0)) 

?T(n)_n 

?T(p)_p 

?T(x)_seq(0,?T(n),1) 

?T(y)  ?mbin(?T(x),?T(n),?T(p)) 

# 

#  To  prevent  too  small  y-axis,  set  the  y-axis  limit  at  least  0.05 

# 

?T(my)_max( 0.05,max(?T(y) ) ) 

plot(?T(x) ,?T(y) , main= "SHAPE  OF  BINOMIAL  PROBABILITY  DISTRIBUTION", 
sub=encode( "N  :  ",?T(n),"  P  :  ",?T(p)),  type="h", 
xlab="X-VALUE",  ylab="",xl  im=c(-1 ,?T( n)  +  1 ) ,yl  im=c( 0,?T(my) ) , 
err=-1 ) 

mtext( s ide=2,  1  ine= 1 ,  outer=T,  "PMF") 
rm(?T(x) ,?T(y) ,?T(my) ,?T(p) ,?T(n) ) 


MACRO  ob inplot(n/?PROMPT( NUMBER  OF  PLOT(up  to  4)  :  )/, 

nv/?PROMPT(N  VALUE(ex)8, 10, 16  :  )/, 

pv/?PR0MPT( P  VALUE(ex)0.3»0.5,0.8  :  )/) 

# 

#  This  is  a  Macro  to  compare  the  shape  of  binomial  probability 

#  distribution  with  different  parameters. 

# 

(t 

?T(n)  n 

if(?TTn)<=2)  par(mfrow=c( 1 ,2) ,  oma=c( 0,0,2 ,0) ) 
if(?T(n)>  2)  par(mfrow=c(2,2) ,  oma=c( 0,0,2, 0) ) 

?T(nv)_c(nv) 

?T(p)_c(pv) 

?TU)~seq(0,max(?T(nv))  ,1) 

?T(y)_matr ix(0,nrow=?T(n) ,ncol=len(?T(x) ) ) 

# 

#  Binomial  probability  exists  only  x  <  n+1 

# 

for  (  i  in  1:?T(n)  )  { 

?T(y)[ i,( 1 :(?T(nv)[  i]+1 ) )  ]_?mb  in(?T(x)  [  1 :(?T(nv)[  i]+1)]f 
?T(nv)  [  i]  ,?T(  p)  [  i] ) 

} 

# 

#  To  prevent  too  small  y-axis,  set  the  y-axis  limit  at  least  0.05 

# 

?T(my)_max(0.05,max(?T(y) ) ) 
param_encode( "N  ?T(nv),"  P  ?T(p)) 
for  (“i  in  1:  ?T(n)  )  { 

plot(?T(x),?T(y)[ i,],xlab="X  VALUE", ylab="n,type="h", 
main=param[  i] ,  yl  im=c(  0,?T(my) ) ) 

} 

mtext(side=3,  1  ine=0 ,  outer=T, 

"SHAPES  OF  BINOMIAL  PROBABILITY  DISTRIBUTIONS") 
rm(?T(n) ,?T(x) ,?T(nv) ,?T(p) ,?T(y) ,?T(my) ) 

)) 


9 


MACRO  negb  inom 

({ 

item  c( "SHAPE  OF  DISTRIBUTION", 
"SHAPE  COMPARISON", 

"RETURN  TO  PREVIOUS  STEP") 
action_c( "?negb inplot", 

"?onegb inplot", 

"?d  is") 

menu(  item,  act  ion) 
rm(  item,  action) 

}) 

END 


MACRO  negbinplot( 

r/?PROMPT( Number  of  Success  :  )/, 

p/?PROMPT( Probab il  ity  of  Success  :  )/, 
x/?PROMPT(Max  X  for  Plot  :  )/) 

# 

#  This  is  a  Macro  to  plot  the  shape  of  negative  binomial  probability 

#  distribution. 

# 

({ 

par(mfrow=c( 1 , 1 ) ,  oma=c( 2,2 ,0,0) ) 

?T(  r)_r 
?T(p)_p 
?T(x)_x 

?T(x)  ( 0 :?T( x) ) 

?T(y)  ?mnegb  in( ?T(x) ,?T( r) ,?T( p) ) 

?T(my7  max(0.05,max(?T(y) ) ) 

# 

#  To  prevent  too  small  y-axis,  set  the  y-axis  limit  at  least  0.05 

# 

plot(?T(x) ,  ?T(y) ,  xlab="" ,  ylab="",  type="h", 

main= "SHAPE  OF  NEGATIVE  BINOMAIL  DISTRIBUTION", 
yl  im=c(0,?T(my) ) ,  sub="Number  of  Failure",  err=-1) 
mtext( s ide=2 ,  line=1,  outer=T,  "PMF") 
mtext(sides1 ,  line=1,  outer=T, 

encode( "P  :  ",?T(p),"  NUMBER  of  SUCCESS  :  ",?T(r))) 
rm( ?T( x) ,?T( y) ,?T(my ) ,?T( p) ,?T( r) ) 


MACRO  onegbinplot( 

n/?PROMPT( Number  of  Plot  (Up  to  H)  :  )/, 

rv/?PR0MPT( Number  of  Success  (ex)  5,  8,  12  :  )/, 

pv/?PROMPT( Probability  of  S  (ex)  .2, .3, .5  :  )/, 
maxx/?PROMPT(Max  X  for  Plot  :  )/) 

# 

#  This  is  a  Macro  to  compare  the  shape  of  negative  binomial 

#  probability  distribution  with  different  parameters. 

# 

(( 

?T(n)  n 

if(?tTn)<=2)  par(mfrow=c( 1 ,2) ,  oma=c(0, 0,2,0)) 
if(?T(n)>  2)  par(mfrow=c(2,2) ,  oma=c( 0,0, 2 ,0) ) 

?T(rv)_c(rv) 

?T(pv)_c(pv) 

?T(x)_seq(0,maxx, 1 ) 

?T(y)_matr  ix( 0,nrow=?T( n) ,ncol=len(?T(x) )) 
for  (  i  in  1:?T(n)  )  { 

?T(y)  [  i,  ]  ?mnegb  in(?T(x)  ,?T( rv)  [  i]  ,?T( pv)  [  i] ) 

1 

?T(my)_max( 0.05,max(?T(y) ) ) 

# 

#  To  prevent  too  small  y-axis,  set  the  y-axis  limit  at  least  0.05 

# 

param_encode( "P  ?T(pv),"  #  of  S  :n,  ?T(rv)) 
for  (  i  in  1:  ?T(n)  )  ( 

plot(?T(x) ,?T(y) [  i, ] ,xlab= "NUMBER  of  FAILURE", ylab="",type="h", 
main=param[  i] ,  yl  im=c(  0,?T(my) ) ,  err=-1) 

} 

mtext(side=3»  line=0,  outer=T, 

"SHAPES  OF  NEGATIVE  BINOMIAL  PROBABILITY  DISTRIBUTIONS" ) 
rm( ?T(n),?T(x),?T(pv),?T(rv),?T(y),?T(my)) 


MACRO  hypergeo 

({ 

item_c( "SHAPE  OF  DISTRIBUTION", 
"SHAPE  COMPARISON", 

"RETURN  TO  PREVIOUS  STEP") 
action  c( "?hyperplot", 

"?ohyperplot" , "?d  is") 
menu( item, act  ion) 
rm(  item,  action) 

}) 

END 


MACRO  hyperplot( 

n/?PROMPT( Sample  Size  :  )/, 

M/?PROMPT( Success  in  Population  :  )/, 

N/?PROMPT( Populat ion  Size  :  )/) 

# 

#  This  is  a  Macro  to  plot  the  hypergeometric 

#  probability  distribution 

# 

({ 

par(mfrow=c( 1,1),  oma=c(2,2,0,0) ) 

?T(  n)_n 
?T(M)_M 
?T(  N)_N 

?T(x)_(max(0,?T(M)+?T(n)-?T(N)) :min(?T(M) ,?T(n))) 

?T(y)  Tmhyperl ( ?T( x) ,?T(n) ,?T(M) ,?T(N)) 

?T(myT  max( 0.05 ,max(?T(y) ) ) 

# 

#  To  prevent  too  small  y-axis,  set  the  y-axis  limit  at  least  0.05 

# 

plot(?T(x) ,  ?T(y) ,  xlab="",  ylab="",  type="h", 

main= "SHAPE  of  HYPERGEOMETRIC  DISTRIBUTION", 
ylim=c(0,?T(my)) ,  sub="Succe3ses  in  Sample",  err=-1) 
mtext( side=2,  line=1,  outer=T,  "PMF") 
mtext( s ide= 1 ,  line=1,  outer=T, 

encode("Pop'  s  ize : ” ,?T( N) , "  Success  in  Pop ’ : " ,?T( M) , 

"  Sample  size:",  ?T(n))) 
rm(?T(x) ,?T(y) ,?T(my) ,?T(N) ,?T(M) ,?T(n) ) 


MACRO  ohyperplot( 

n/?PROMPT( Number  of  Plot  (Up  to  4)  :  )/, 
ss/?PR0MPT( Sample  Size  :  )/, 

ns/? PR0MPT( Success  In  Population  :  )/, 

ps/?PROMPT( Populat ion  Size  :  )/) 

4 

4  Th  is  is  a  Macro  to  compare  the  shape  of  hypergeometric 

#  probability  distribution  with  different  parameters 

# 

(l 

?T(n)  n 

if(?fTn)<=2)  par( mfrow=c( 1 ,2) ,  oma=c(0, 0,2,0) ) 
if(?T(n)>  2)  par(mfrow=c(2,2) ,  oma=c(0, 0,2,0) ) 

?T( ss)_c( ss) 

?T(ns)_c(ns) 

?T( ps)_c( ps) 

?T(x)_seq( 0,min(max( ?T(ns) ) ,max( ?T( ss) ) ) , 1 ) 

?T(y)_matr  ix( 0,nrow=?T(n) ,ncol=len(?T(x) ) ) 

# 

4  Confirm  the  condition  (M+n-N)  <=  x  <=  min(M,n) 

4 

for  (  i  in  1:?T(n)  )  { 

?T(y )  [  i,  ( ( max(  1 ,  ( ?T( ns)  [  i]  ?T(  ss)  [  i] -?T( ps)  [  i]  +  1 ) ) )  : 

+  ( ( m  in( ?T( ns)  [  i]  ,?T(  ss)  [  i] )  )  +  1 ) )  ]_ 

+  ?mhyper 1 ( ( max( 0, ( ?T( ns) [ i]+?T( 3s) [ i]-?T(  ps) [ i] ) ) ) : 

+  ( m in( ?T( ns)  [  i]  ,?T(  ss)  t  i] ) ) , 

+  ?T(  ss)  [  i]  ,?T(  ns)  [  i]  ,?T(  ps)  [  i] ) 

} 

4 

4  To  prevent  too  small  y-axis,  set  the  y-axis  limit  at  least  0.05 
4 

?T(my)_max( 0.05,max(?T(y) ) ) 

param_encode( "SS: ",?T(ss) , "  NS: ",?T(ns) , "  PS:",?T(ps)) 
for  (  i  in  1 :  ?T(n)  )  { 

plot(?T(x),?T(y)[i, ] ,xlab= "NUMBER  of  SUCCESS  in  SAMPLE", 
y 1 ab= "", type= "h", raain= par am[  i]  ,yl  imrc( 0,?T(my) ) , 
errs-l ) 

} 

mtext(sider3,  linerO,  outersT, 

"SHAPES  OF  HYPERGEOMETRIC  PROBABILITY  DISTRIBUTIONS" ) 
rm( ?T( n) ,?T(x) ,?T( ps) ,?T( ns) ,?T( ss) ,?T(y) ,?T(my)) 
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MACRO  uniform 

({ 

item  c( "SHAPE  OF  DISTRIBUTION", 
"SHAPE  COMPARISON", 

"RETURN  TO  PREVIOUS  STEP") 
act  ion_c( "?un if plot" , 

"?oun ifplot","?d is") 
menu(  item, act  ion) 

}) 

END 


MACRO  unifplot( 
i/?PROMPT( LOWER  VALUE  :  )/, 
e/?PROMPT( UPPER  VALUE  :  )/, 
nx/?PROMPT(MIN  for  PLOT  :  )/, 
xx/? PROMPT( MAX  for  PLOT  :  )/) 

# 

#  This  is  a  Macro  to  plot  the  discrete  uniform 

#  probability  distribution. 

# 

({ 

par(mfrow=c( 1, 1),  oma=c(0,2,0,0)) 

?T(  i)  i 
?T(e)~ e 
?T(nxT_nx 
?T(xx)  xx 

?T(x)_T"?T(nx)  :?T(xx) ) 

?T(y)_?ddunif(?T(x)  ,?T(  i),?T(e)) 

# 

#  To  prevent  too  small  y-axis,  set  the  y-ax  is  limit  at  least  0.05 


? T( my )_max( 0 . 05 , max ( ? T(  y ) ) ) 

plot( ?T( x) ,?T(y) , xl ab= "X-VALUE", ylab="", types "h", 
main="SHAPE  OF  DISCRETE  UNIFORM  DISTRIBUTION", 
yl im=c(0,?T(my) ) ,  sub=encode( "Lower  Limit  :  ", 
?T(i),"  Upper  Limit  :  ",?T(e)),  err=-1) 
mtext(side=2,  line=1,  outer=T,  "PMF") 
rm(?T(x) ,?T(y) ,?T(my) ,?T(  i)  ,?T( e) ,?T(xx) ,?T(nx) ) 


MACRO  ounifplot( 

n/?PROMPT( NUMBER  OF  PLOT(up  to  4)  :  )/, 
nv/?PROMPT( LOWER  VALUE(ex)2,3,4  :  )/, 

pv/?PROMPT( UPPER  VALUE( ex) 5, 8, 9  :  )/) 

# 

#  This  is  a  Macro  to  compare  the  shape  of  uniform  probability 

#  distribution  with  different  parameters 

# 

({ 

?T(n)  n 

if(?TTn)<=2)  par(mfrow=c( 1 ,2) ,  oma=c(0, 0,2,0)) 
if(?T(n)>  2)  par(mfrow=c(2,2) ,  oma=c( 0,0, 2,0) ) 

?T(nv)_c(nv) 

?T(pv)_c(pv) 

?T(x)_seq(min(?T(nv) ) ,max(?T(pv) ) , 1 ) 

?T(y)_matr ix(0,nrow=?T(n) ,ncol=len( ?T(x) ) ) 
for  (  i  in  1:?T(n)  )  { 

?T(y )  [  i,  ]  ?ddun  if  (?T(x)  ,?T{  nv)  [  i]  ,?T(  pv)  [  i] ) 

} 

# 

#  To  prevent  too  small  y-axis,  set  the  y-axis  limit  at  least  0.05 

# 

?T(my)_max( 0.05 ,max(?T(y ) ) ) 

param_encode( "LL  ?T(nv),tt  UL  ?T(pv)) 

for  (  i  in  1:  ?T(n)  )  { 

plot(?T(x) ,?T(y) [ i, ] ,xlab="X  VALUE", ylab="",type="h", 
main=param[  i],yl  im=c(  0,?T(my))) 

} 

mtext(side=3,  line=0,  outer=T, 

"SHAPES  OF  DISCRETE  UNIFORM  PROBABILITY  DISTRIBUTIONS") 
rm( ?T(n) ,?T(x) ,?T(nv) ,?T(pv) ,?T(y) ,?T(my) ) 


MACRO  poisson 

({ 

item_c( "SHAPE  OF  DISTRIBUTION", 
"SHAPE  COMPARISON", 

"RETURN  TO  PREVIOUS  STEP") 
act  ion_c( "?po isplot", 

"?opo  isplot ","?d Is") 
menu(  item, act  ion) 
pm(  item,  action) 

1) 

END 


MACRO  poisplot( 

l/?PROMPT( LAMBDA  :  )/, 

x/?PROMPT( MAX  X  for  PLOT  :  )/) 

# 

#  Th  is  is  a  Macro  to  plot  the  po  isson 

#  probability  distribution 

# 

({ 

par(mfrow=c( 1 , 1 ) ,  oma=c(0,2,0,0) ) 

?T(  1)_1 
?T(x)_x 

?T(x)_(0:?T(x) ) 

?T(y)  ?mpo iss(?T(x) ,?T( 1) ) 

?T(myJ_max(0.05,max(?T(y) ) ) 

# 

#  To  prevent  too  small  y-axis,  set  the  y-axis  limit  at  least  0.05 

# 

plot(?T(x) ,?T(y) ,xlab="X-VALUE",ylab="",yl im=c(0,?T(my) ) , 
main= "SHAPE  OF  POISSON  DISTRIBUTION", type="h", 
sub=encode( "LAMBDA  :  ",  ?T(1))) 
mtext( s ide=2,  line=1,  outer=T,  "PMF") 
rm(?T( x) ,?T(y ) ,?T(my) ,?T( 1) ) 


MACRO  opoisplot( 

n/?PROMPT( NUMBER  OF  PLOT(up  to  4)  :  )/, 
nv/?PROMPT( LAMBDA  (ex)  2,3,4  :  )/, 

pv/? PROMPT( MAX  X  for  PLOT  :  )/) 

# 

#  This  is  a  Macro  to  compare  the  shape  of  poisson 

#  probability  distribution  with  different  parameters 

# 

({ 

?T(n)  n 

if(?TTn)<=2)  par(mfrow=c( 1,2) ,  oma=c( 0,0,2, 0) ) 
if(?T(n)>  2)  par(mfrow=c(2,2) ,  oma=c(0, 0,2,0) ) 

?T(nv)_c(nv) 

?T(pv)_pv 

?T(x)_seq(0,?T(pv) ,1) 

?T(y)_matr ix(0,nrow=?T(n) ,ncol=len( ?T(x) ) ) 
for  Ci  in  1  :?T(n)  )  { 

?T(y)  (  i,  ]  ?mpoiss(  ?T(x)  ,?T(  nv)  [  i] ) 

} 

# 

#  To  prevent  too  small  y-axis,  set  the  y-ax  is  limit  at  least  0.05 

# 

?T(my)_max(0.05,max(?T(y) ) ) 
param_encode( "LAMBDA  ?T(nv)) 
for  (  i  in  1 :  ?T(n)  )  { 

plot(?T(x) ,?T(y) [ i, ] ,xlab="X  VALUE", ylab="",type="h", 
main=param[  i]  ,yl  im=c( 0,?T(my ) ) ) 

} 

mtext(side=3,  1  ine=0,  outersT, 

"SHAPES  OF  POISSON  PROBABILITY  DISTRIBUTIONS" ) 
rm(?T(n) ,?T(x) ,?T(nv) ,?T(pv) ,?T(y) ,?T(my) ) 

}) 
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MACRO  normal 

({ 

item_c( "SHAPE  OF  DISTRIBUTION", 
"SHAPE  COMPARISON", 

"RETURN  TO  PREVIOUS  STEP") 
act  ion_c( "?normplot" , 

"?onormplot" , "?cont" ) 
menu( item, act  ion) 
rm(  item,  action) 

}) 

END 


MACRO  normplot( 

m/? PROMPT( Mean  :  )/, 

s/?PROMPT( Sigma  :  )/, 

minx/?PROMPT(MIN  X  for  PLOT  :  )/, 

roaxx/?PROMPT( MAX  X  for  PLOT  :  )/) 

# 

#  This  is  a  Macro  to  plot  the  normal 

#  probab  il  ity  d  istr  ibut  ion 

# 

({ 

par(mfrow=c( 1 , 1 ) ,  oma=c(0,2,0,0) ) 

?T(m)_m 
?T( s)  s 
?T(nxT_minx 
?T(xx)_maxx 

?T(x)  seq(?T(nx) ,?T(xx) ,len=100) 

?T(y)_dnorm(?T(x) ,?T(m) ,?T( s) ) 

# 

#  To  prevent  too  small  y-axis,  set  the  y-axis  limit  at  least  0.05 

# 

?T(my)  ifelse(max(?T(y) )<0.05 ,0.05,max( ?TCy) ) ) 
plot( ?T( x) ,?T(y) ,xlab="X-VALUE",ylab="", 
main="SHAPE  OF  NORMAL  DISTRIBUTION", 
sub=encode( "MEAN  :",?T(m),"  STD  DEV  :",?T(s)), 
yl  im=c( 0,?T( my) ) ,type="l") 
mtext(side=2,  line=1,  outer=T,  "PDF") 
rm(?T(x) ,?T(y) ,?T(my) ,?T(m) ,?T( s) ,?T(nx) ,?T(xx) ) 


MACRO  onormplot( 

n/?PROMPT( NUMBER  OF  PLOT(up  to  4)  :  )/, 


m/?PROMPT(MEAN  (ex)  2,3,4  :  )/, 

s/?PROMPT( Std  Dev  (ex) 1,3,7  :  )/, 

minx/?PROMPT(MIN  X  for  PLOT  :  )/, 

maxx/?PROMPT( MAX  X  for  PLOT  :  )/) 

# 


#  This  is  a  Macro  to  compare  the  shape  of  normal 

#  distribution  with  different  parameters 

# 

({ 

par(mfrow=c( 1 , 1 ) ,  oma=c(2,2,0,0) ) 

?T(n)_n 

?T(m)_c(m) 

?T(s)_c(s) 

?T(y)_matr ix(0,nrow=?T(n) ,ncol=51 ) 

?T(  x  )_seq( m inx , maxx , len=5 1 ) 
for  (  i  in  1:?T(n)  )  { 

?T(y)[  i,]  dnorm(?T(x),?T(m)[  i],?T(s)[  i]) 

} 

# 

#  To  prevent  too  small  y-axis,  set  the  y-axis  limit  at  least  0.05 

# 

?T(my)  ifelse(max(?T(y) )< 0.05, 0.05 ,max(?T(y) ) ) 

slct_cT5, 17, 29 ,  ^  1 ) 

sym_c("1","2","3","4") 

plot (?T(x) (slot] ,?T(y) [ 1 .slot] ,pch=sym[ 1] ,xlab="X  VALUE", ylab="", 
type="p",  mains "SHAPE  OF  NORMAL  DISTRIBUTION  with  Different  Parameters 
ylim=c(0,?T(my)),xlim=c(?T(x)[1],?T(x)[51])) 

1  ines(?T(x) ,?T(y) C 1 ,3) 
for(  i  in  2:?T(n)  )  { 

points(?T(x)[slct+3*( i-1)],?T(y)[ i,(slct+3*( i-1 ) ) ] ,pch=sym[ i]) 
lines(?T(x)  ,?T(y)[  i,  ]) 

} 

mu_rep(0,4) 
sd_rep( 0,4) 
for  (  i  in  1 : 4  )  { 

mu[  i]_ifelse(  i<s?T(n) ,  ?T(m)  [min(  i,?T(n) )  ] ,  NA) 
sd[  i]  ifel3e(  i<=?T(n),  ?T(  s)  [m  in(  i,?T(n) )  ] ,  NA) 

} 

mtext(sides2,  line=1,  outersT,  "PDF") 

mtext(sidesl,  linesl,  outersT, 

encode(  "Mean  [",mu[1],mu[2),mu[3],niu[4],"]", 

"  std  Dev  C",sd[ 1 ] ,sd[2] ,sd[ 31 ,sd[4], "]") ) 

rm( ?T( n) ,?T(x) ,?T(m) ,?T( s) ,?T(y) ,?T(my) ,mu,sd,slct,sym) 


cun iform 

;( "SHAPE  OF  DISTRIBUTION", 
"SHAPE  COMPARISON", 

"RETURN  TO  PREVIOUS  STEP") 
i  c( "?cun ifplot", 

~  "?ocun Ifplot", "?cont") 
item,  act  Ion) 


MACRO  ocunifplot( 

n/?PROMPT( NUMBER  OF  PLOT(up  to  4)  :  )/, 


m/?PROMPT( LOWER  LIMIT( ex) 2 ,3, 4  :  )/, 

s/?PROMPT( UPPER  LIMIT(ex)5,7,9  :  )/, 

minx/?PROMPT(MIN  X  for  PLOT  :  )/, 

maxx/?PROMPT(MAX  X  for  PLOT  :  )/) 

# 


#  This  is  a  Macro  to  compare  the  shape  of  uniform  probability 

#  distribution  with  different  parameters 

# 

(t 

par(mfrow=c( 1 , 1 ) ,  omasc(2,2,0,0) ) 

?T(n)_n 

?T(m)_c(m) 

?T(s)_c(s) 

?T(y)~matr  ix(0,nrow=?T(n) ,ncol=51 ) 

?T(x)_seq(minx,maxx,len=51 ) 
for  (  i  in  1:?T(n)  )  { 

?T(y)[  i,]  dun  if  ( ?T(  x)  ,?T(  m)  [  i]  ,?T(  s)  (  i] ) 

} 

# 

#  To  prevent  too  small  y-axis,  set  the  y-axis  limit  at  least  0.05 

# 

?T( my  )_ifelse(max( ?T(y )  )<0.05 ,0 .05 ,max(  ?T(y ) ) ) 
sym  c( "1","2","3","4") 
slot  e(5,17.29,41) 

plotT?T(x) [slct] ,?T(y)[ 1 .slot] ,pch=sym[ 1] ,xlab="X  VALUE" ,ylab="" , 
types "p",  mains "SHAPE  OF  UNIFORM  DISTRIBUTION  with  Different 
Parameters",  yl  lm=c( 0,?T(my) ) ,xl imsc(?T(x) 1 1 ] ,?T(x) [5 1 ] ) ) 

1  ines(?T(x) ,?T(y)[ 1,]) 
for( i  In  2 :?T( n)  )  { 

po ints(?T( x) [slct+3*(  1-1 ) ] ,?T(y) [ i, ( slct+3*( i-1 ) ) ] ,pch=sym[  i] ) 

1  ines(?T(x)  ,?T(y)(  i,  ] ) 

} 

lv_rep(0,4) 
uv_rep( 0,4) 
for  '  i  in  1 : 4  )  { 

lv[  i]_ifelse(  i<=?T(n),  ?T(  m)  [m  in(  i,?T(  n) )  ] ,  NA) 
uv[  i]_ifelse(  i<s?T(n) ,  ?T(  s)  [m  in(  i,?T( n) )  ] ,  NA) 

} 

mtext(sides2,  lineal,  outersT,  "PDF") 

mtext( s ides  1 ,  linesl,  outersT, 

encode ( "Lower  [ " , lv[  1  ] ,  lv[2] , lv[ 3] , lv[4] , " ] " , 

"  Upper  [" ,uv[ 1 ] ,uv[2] ,uv[ 3) ,uv[4 ],"]") ) 

rm( ?T( m) ,?T( s) ,?T(n),?T(x),?T(y) ,?T(my) ,lv,uv, slct, sym) 


MACRO  lognorm 

(C 

item  c( "SHAPE  OF  DISTRIBUTION", 
"SHAPE  COMPARISON", 

"RETURN  TO  PREVIOUS  STEP") 
action  c( "?lnormplot", 

"?olnormplot", "?cont") 
menu(  item, act  ion) 
rm(  item,  action) 

}) 

END 


MACRO  lnormplot( 

mv/?PROMPT(Mean  Value  :  )/, 

sv/?PROMPT( Std  Dev  :  )/, 

maxx/? PROMPT( MAX  X  for  PLOT  :  )/) 

# 

#  Th is  is  a  Macro  to  plot  the  lognormal 

#  probability  distribution 

# 

(l 

par(mfrow=c( 1,1),  oma=c(0,2,0,0) ) 

?T(m)_mv 
?T(s)_sv . 

?T( x)_maxx 

?T(x)_seq(0,?T(x),len=100) 

?T( p)  ?T( x) t?T(x) >0] 

?T(y)_dlnorm(?T(p) ,?T(m) ,?T(s) ) 

# 

#  To  prevent  too  small  y-axis,  set  the  y-ax  is  limit  at  least  0.05 

if(max(?T(y))<0.05)?T(my)  0.05  else  ?T(my)_max(?T(y) ) 
plot(?T(p) ,?T(y) ,xlab="X-VALUE",ylab="", 

main="SHAPE  OF  LOGNORMAL  DISTRIBUTION" ,yl im=c( 0,?T(my) ) , 
sub=encode( "MEAN  :  ",?T(m),"  STD  DEV  :  " ,?T( s) ) , type="l" , 
err=- 1 ) 

mtext(side=2,  line=1,  outer=T,  "PDF") 
rm(?T(x) ,?T(y) ,?T(p) ,?T(my) ,?T(m) ,?T(  s) ) 


MACRO  olnormplot( 

n/?PROMPT( NUMBER  OF  PLOT(up  to  4)  :  )/, 
m/?PROMPT(MEAN  (ex)2,3,4  :  )/, 

s/?PROMPT( Std  Dev  (ex) 1,3,7  :  )/, 

maxx/?PROMPT(MAX  X  for  PLOT  :  )  /) 

# 

#  This  is  a  Macro  to  compare  the  shape  of  lognormal 

#  probability  distribution  with  different  parameters 

# 

({ 

par(mfrow=c( 1 , 1 ) ,  oma=c(2,2,0,0)) 

?T(n)_n 

?T(m)~c(m) 

?T( s)_c( s) 

?T(y)_matr ix( 0,nrow=?T( n) ,ncol=50) 

?T(x)_seq( 0,maxx,len=51 ) 

?T(p)  ?T(x) [?T(x)>0] 
for  (  i  in  1  :?T(n)  )  { 

?T(y)  [  i,  ]  dlnorm(?T(p),?T(m)[  i],?T(s)[  i]) 

} 

# 

#  To  prevent  too  small  y-axis,  set  the  y-axis  limit  at  least  0.05 

# 

?T(my)  ifelse(max(?T(y))<0.05,0.05,max(?T(y))) 
sym_c( " 1 ", "2", "3) , "4") 
slot  c(5, 17,29, 41) 

plotT?T(p) [slot] ,?T(y) [ 1 , slot ] ,pch=sym[ 1 ] ,xlab="X  VALUE” ,ylab="" , 
type= "p",  mains "SHAPE  OF  LOGNORMAL  DISTRIBUTION  with  Different 
Parameters",  yl imsc( 0,?T(my) ) ,xl imsc( ?T( x) [ 1 ] ,?T( x) [5 1 1 ) ,  errs-1) 
1  ines(?T(p) ,?T(y) [ 1 ,]) 
for(  i  in  2:?T(n)  )  { 

points(?T(p) [slct+3*( i-1 ) ] ,?T(y) [  i,(slct+3*( i-1 ) ) ] ,pch=sym[ i] ) 

1  ines(  ?T(  p)  ,?T(y)  [  i,  ] ) 

} 

mu  rep(0,4) 
sd_rep( 0,4) 
for  (  i  in  1:4  )  { 

mu[  i]_ifelse(  i<s?T(n) ,  ?T(m)  [min(  i,?T(  n) )  ] ,  NA) 
sd[i]  ifelse(  i<s?T(n),  ?T(  s)  [m  in(  i,?T(n) )  ] ,  NA) 

} 

mtext(sides2,  linesl,  outersT,  "PDF") 

mtext(sides1 ,  linesl,  outersT, 

encode( "Mean  [",mu[1],mu[2],mu[3],mu[4],"]", 

"  Std  Dev  [",sd[ 1 ] ,sd(2] ,sd[3] ,sd[4] ,"]") ) 

rm(?T(n) ,?T(x) ,?T(p) ,?T(m) ,?T(s) ,?T(y) ,?T(my) ,mu,sd,slct,sym) 


MACRO  td  is 

({ 

item_c( "SHAPE  OF  DISTRIBUTION", 
"SHAPE  COMPARISON", 

"RETURN  TO  PREVIOUS  STEP") 
action  c("?tplot", 

"?otplot","?cont") 
menu(  item, act  ion) 
rm(  item,  action) 

)) 

END 


MACRO  tplot ( 

df/?PROMPT( Degree  of  Freedom  :  )/, 
nx/?PROMPT( MIN  X  for  PLOT  :  )/, 

xx/? PROMPT (MAX  X  for  PLOT  :  )/) 

# 

#  This  is  a  Macro  to  plot  the  T  probability  distribution 

# 

({ 

?T(d)_df 

par(mfrow=c( 1 , 1 ) ,  oma=c( 0,2 ,0 ,0) ) 

?T(x)_seq(nx,xx,len=100) 

?T(y)~dt(?T(x),?T(d)) 

# 

if  To  prevent  too  small  y-axis,  set  the  y-axis  limit  at  le&3t  0.05 

# 

?T(my)_ifelse(max(?T(y) )<0.05 ,0.05,max( ?T(y) ) ) 
plot(?T(x) ,?T(y) ,xlab="X-VALUE",  ylab="",yl im=c(0,?T(my) ) , 
main="SHAPE  OF  T  DISTRIBUTION", 

sub=encode( "Degree  of  Freedom  :  ",?T(d) ) ,type="l",  err=-1) 
mtext( s  ide=2 ,  line=1,  outer=T,  "PDF") 
rm( ?T( x) ,?T(y ) ,?T( my ) ,?T( d) ) 


MACRO  otplot( 

n/?PROMPT( NUMBER  OF  PLOT(up  to  4)  :  )/, 

m/?PROMPT( DEGREE  OF  FREEDOM(ex)2,3,4  :  )/, 
m inx/? PROMPT( MIN  X  for  PLOT  :  )/, 

maxx/?PROMPT( MAX  X  for  PLOT  :  )/) 

# 

#  This  is  a  Macro  to  compare  the  shape  of  t  probability 

#  distribution  with  different  parameters 
t 

({ 

par(mfrow=c( 1 , 1 ) ,  oma=c(2,2,0,0) ) 

?T(n)_n 

?T(m)_c(m) 

?T(y)_matrix(0,nrow=?T(n) ,ncol=51 ) 

?T(x)_seq(minx,maxx,len=51 ) 
for  (  i  in  1  :?T(  n)  )  { 

?T(y)  [  i,  ]  dt(?T(x),?T(m)[  i] ) 

} 

# 

#  To  prevent  too  small  y-axis,  set  the  y-axis  limit  at  least  0.05 

* 

?T(my)  ifelse(max(?T(y) )<0.05»0.05,max(?T(y) ) ) 
sym_c(""  1  "J"2",,,3"in4") 
slot  c(5, 17,29,41) 

plotT?T(x) [slct] ,?T(y) [ 1 ,slct] ,pch=sym[ 1 ] ,xlab="X  VALUE" ,ylab=n" , 
type="p",  raain="SHAPE  OF  T  DISTRIBUTION  with  Different  Parameters 
ylim=c(0,?T(my)) ,xlim=c(?T(x)tl],?T(x)[51])) 

1  ines(?T(x) ,?T(y)[1 ,]) 
for(  i  in  2:?T(n)  )  { 

po ints(?T(x) [slct+3*( i-1 ) ] ,?T(y) [ i,( slct+3#(  i-1 ) ) ] ,pch=sym[ i] ) 

1  ines(  ?T(  x) , ?T(  y )  [  i,  ] ) 

} 

mu_rep(0,4) 

for  (  i  in  1:4  )  { 

mu[  i]_ifelse(  i<=?T(n) ,  ?T(m)  Cmin(  i,?T(n) )  ] ,  NA) 

} 

mtext(  3  ide=2,  lines'!,  outer=T,  "PDF") 
mtext( s ide=  1 ,  line=1,  outer=T, 

encode( "Degree  of  Freedom  [ " ,mu[ 1 ] ,mu[2] ,mu[ 3] ,mu[4] , "] ") ) 
rm( ?T( n) ,?T(x) ,?T(m) ,?T(y) ,?T(my) ,mu,slct,sym) 


MACRO  expon 

(I 

item  c( "SHAPE  OF  DISTRIBUTION", 
"SHAPE  COMPARISON", 

"RETURN  TO  PREVIOUS  STEP") 
act  ion_c(  "?explot”, 

"?oexplot" ,"?cont") 
menu(  item, act  ion) 
rm(  item,  action) 

}) 

END 


MACRO  explot( 

r/?PROMPT( LAMBDA  (  L  >  0)  :  )/, 
x/?PROMPT( MAX  X  for  PLOT  :  )/) 
t  This  is  a  Macro  to  plot  the  exponential 

#  probability  distribution 

# 

({ 

par(mfrow=c( 1 , 1 ) ,  oma=c( 0,2, 0,0) ) 

?T(r)_r 

?T(x)_x 

?T(x)_seq(0,?T(x) , lens  100) 

?T(y)_?dex1(?T(x) ,?T(r)) 

# 

#  To  prevent  too  small  y-axia,  set  the  y-axis  limit  at  least  0.05 

# 

?T(my)_ifelse(max(?T(y))<0.05,0.05,max(?T(y))) 
plot( ?T( x) ,?T(y ) ,xlab="X-VALUE" ,ylab="" ,yl im=c( 0,?T( my ) ) , 
main="SHAPE  OF  EXPONENTIAL  DISTRIBUTION", 
sub=encode( "LAMBDA  :  ",  ?T(r) ) ,type="l") 
mtext(side=2,  line=1,  outer=T,  "PDF") 
rm(?T(x) ,?T(y) ,?T(my) ,?T(r)) 
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MACRO  oexplot( 

n/?PROMPT( NUMBER  OF  PLOT(up  to  4)  :  )/, 
r/?PROMPT( LAMBDA  (Ex;  2,4,8  (>0))  :  )/, 
maxx/?PROMPT(MAX  X  for  PLOT  ;  )/) 

# 

#  This  is  a  Macro  to  compare  the  shape  of  expontential 

#  probability  distribution  with  different  parameters 

# 

(( 

par(mfrow=c( 1 , 1 ) ,  oma=c(2,2,0,0) ) 

?T(n)_n 
?T( r)_c( r) 

?T(y)_matr ix(0,nrow=?T(n) ,ncol=51 ) 

?T(x)_seq(0,maxx,len=51 ) 
for  (  i  in  1:?T(n)  )  { 

?T(y)  [  i,  ]  ?dex1  (?T(x)  ,?T(  r)  [  i] ) 

} 

* 

#  To  prevent  too  small  y-axis,  set  the  y-axis  limit  at  least  0.05 

# 

?T(my)_ifelse(max( ?T(y))<0.05,0.05,max(?T(y) ) ) 
sym_c( "1 " , "2", "3" , "4") 
slot  c(5,17,29,4l) 

plotT?T(x) [ slot ],?T(y)[1, slot], pch=sym[ 1],xlab="X  VALUE" ,ylab="" , 
type="p",  main="SHAPE  OF  EXPONENTIAL  DISTRIBUTION  with  Different 
Parameters",  yl ira=c( 0,?T(my ) ) ,xl im-c(?T(x) [ 1 ] ,?T(x) [5 1 ] ) ,  err=-1) 
lines(?T(x) ,?T(y)[ 1 ,]) 
for(  i  in  2;?T(n)  )  { 

points(?T(x) [slct+3*(  i-1)],?T(y)[ i,(slct+3*(  i-1 ) ) ] ,pch=sym[ i]) 
lines(?T(x)  ,?T(y)[  i, ]) 

} 

lm_rep(  0,4) 

for  (  i  in  1 : 4  )  { 

lm[  i]_ifelse(  i<=?T(n),  ?T(r)  [min(  i,?T(n) )  ] ,  NA) 

} 

mtext( s lde=2,  line=1,  outer=T,  "PDF") 

mtext( s ide= 1 ,  line=1,  outer=T, 

encode ( "Lambda  [ " ,lm[ 1 ] ,lm[2] ,lm[3] , lm[4] ,"]")) 

rm(?T(n) ,?T(x) ,?T(r) ,?T(y) ,?T(my) ,1m, slot, sym) 

}) 

END 
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MACRO  gammaset 

({ 

item  c( "SHAPE  OF  DISTRIBUTION", 
"SHAPE  COMPARISON", 

"RETURN  TO  PREVIOUS  STEP") 
action  c(  "?gamplot", 

~  "?ogamplot", "?cont") 
menu( item, act  ion) 

}) 

END 


MACRO  gamplotC 

a/?PROMPT( ALPHA  VALUE(  A  >  0  )  :  )/, 
b/?PROMPT( BETA  VALUE(  B  >  0  )  :  )/, 

maxx/?PROMPT(MAX  X  for  PLOT  :  )/) 

# 

#  This  is  a  Macro  to  plot  the  gamma 

#  probability  distribution 

# 

({ 

par(mfrow=c( 1 , 1 ) ,  oma=c(0,2,0,0)) 

?T(  a)_a 
?T(b)_b 

?T(x)_seq(0,maxx,len=100) 

# 

#  Exclude  the  point  x  =  0 

# 

?T(x)_?T(x)[?T(x)>0] 

?T(y)  ?gamfun1(?T(x) ,?T( a) ,?T(b) ) 

# 

#  To  prevent  too  small  y-axis,  set  the  y-axis  limit  at  least  0.05 

# 

?T(my )_ifelse(max(?T(y ) )< 0.05 ,0.05 ,max( ?T(y ) ) ) 
plot(?T(x) ,?T(y) ,xlab="X-VALUE",ylab="", 

main="SHAPE  OF  GAMMA  DISTRIBUTION", yl  im=c( 0,?T(my) ) , 
sub=encode( "Alpha  :  ",?T(a),"  Beta  :  ",?T(b) ) ,typer"l") 
mtext(side=2,  line=1,  outer=T,  "PDF") 
rm(?T(x) ,?T(y) ,?T(my) ,?T( a) ,?T( b) ) 


>/, 

)/, 


)/, 


)/) 


0.05 


MACRO  ogamplot( 

n/?PROMPT( NUMBER  OF  PLOT(up  to  4) 
m/?PROMPT( ALPHA( pos it  iv) ; ex , 2, 1 ,2 
s/? PROMPT ( BETA( pos  it  ive ) ; ex , . 3 , 1 , 2 
maxx/?PROMPT( MAX  X  for  PLOT 
# 

#  This  Is  a  Macro  to  compare  the  shape  of  gamma  probability 

#  distribution  with  different  parameters 

# 

({ 

par(mfrow=c(  1 , 1 ) ,  oma=c(2,2,0,0) ) 

?T(  n)_n 
?T(m)_c(m) 

?T(s)_c(s) 

?T(y)_matr ix( 0,nrow=?T(n) ,ncol=50) 

?T(x)_seq(0,maxx,len=51 ) 

?T(x)_?T(x) [?T(x)>0] 
for  (  i  in  1:?T(n)  )  { 

?T(y ) [  i, ]  ?gamf\in1(?T(x),?T(m)[  i],?T(s)[  i]) 

} 

# 

#  To  prevent  too  small  y-axis,  set  the  y-axis  limit  at  least 

# 

?T(my)_ifelse(max( ?T(y)  X0.05 ,0.05  ,max(  ?T(y) ) ) 
sym_c( "1","2","3","4") 
slot  c(5, 17 ,29,41 ) 

plotT?T(x) [slot] ,?T(y) [ 1 , slot] ,pch=sym[ 1 ] ,xlab="X  VALUE" ,ylab="" , 
types "p",  mains"SHAPE  OF  GAMMA  DISTRIBUTION  with  Different  Parameters", 
ylim=c(0,?T(my)),xlim=c(?T(x)[l],?T(x)C50])) 

1  ines(?T( x) , ?T(y)  [  1 ,  ] ) 
for(  i  in  2 :?T(n)  )  { 

points(?T(x)  [slct+3*(  i-1 )  ]  ,?T(y)  [  i,(  slct+3*(  i-1 ) )  ]  ,pch=sym[  i] ) 

1  ines(?T(x)  ,?T(y)  [  i, ]) 

} 

al__rep (0,4) 
be_rep( 0,4) 
for  (  i  in  1 : 4  )  { 

alt  i]_ifelse(  i<*?T(n),  ?T(m)Cmin(  i,?T(n))], 
bet  i]  lfelse(  i<=?T(n),  ?T(s)[min(  i,?T(n))], 

} 

mtext(  side=2,  line=1,  outer=T,  "PDF") 
mtext(  s  ide=1 ,  line=1,  outer=T, 
encode( "Alpha  t",al[1],al[2],al[3],al[4],"]", 

"  Beta  t",be[1],be[2],be[3],be[4],"3")) 
rm(?T(n) ,?T(x) ,?T(m) ,?T( s) ,?T(y) ,?T(my) , al,be, slct,sym) 

}) 

END 
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MACRO  weibull 
(t 

item  c( "SHAPE  OF  DISTRIBUTION", 
"SHAPE  COMPARISON", 

"RETURN  TO  PREVIOUS  STEP") 
act  ion_c(  "?we  ibplot" , 

"?owe ibplot" , "?cont" ) 
menu(  item,  act  ion) 

}) 

END 


MACRO  weibplot( 

a/?PROMPT(Shape  Parameter  (  >  0  )  :  )/, 
b/?PROMPT( Scale  Parameter  (  >  0  )  :  )/, 
mx/? PROMPT (MAX  X  for  PLOT  :  )/) 

# 

#  This  is  a  Macro  to  plot  the  weibull 

#  probability  distribution 

# 

({ 

par(mfhow=c(  1 , 1 ) ,  oma=c(0,2,0,0) ) 

?T(  a)_a 
?T(b)_b 

?T(x)  seq(0,mx,len=100) 

?T( x)~?T(x) [?T(  x) >0] 

?T(y)~?dweib1(?T(x)  ,?T(a)  ,?T(b)) 

# 

#  To  prevent  too  small  y-axis,  set  the  y-axis  limit  at  least  0.05 

# 

?T(my)_ifelse(max( ?T(y)  )<0 .05 ,0.05 ,max(  ?T(y ) ) ) 
plot(?T( x) ,?T(y ) ,xlab="X-VALUE" ,ylab="" ,yl im=c( 0,?T(my ) ) , 
main="SHAPE  OF  WEIBULL  DISTRIBUTION",  err=-1, 
sub=encode( "ALPHA  :  ",?T(a),"  BETA  :  " ,?T( b) ) , type="l") 
mtext( side=2,  line=1,  outer=T,  "PDF") 
rm(?T(x) ,?T(y) ,?T(my) ,?T( a) ,?T(b) ) 


MACRO  owelbplot( 

n/?PR0MPT( NUMBER  OF  PLOT(up  to  4)  :  )/, 

m/?PROMPT( Shape  Parameter  ex;2,1,2  :  )/, 
s/?PROMPT(Scale  Parameter  ex;3,5,1  :  )/, 
maxx/?PROMPT(Max  X  for  PLOT  :  )/) 

# 

#  This  Is  a  Macro  to  compare  the  shape  of  weibull  probability 

#  distribution  with  different  parameters 

# 

({ 

par(mfhow=c( 1 , 1 ) ,  oma=c(2,2,0,0) ) 

?T(n)_n 

?T(m)_c(m) 

?T(s)_c(s) 

?T(y)_matr lx(0,nrow=?T(n) ,ncol=100) 

?T(x)_seq(0,maxx,len=101 ) 

# 

#  Exclude  the  point  x=0 

# 

?T(x)_?T(x)[?T(x)>0] 
for  (  1  In  t  :?T(n)  )  { 

?T(y)  [  i,  ]  ?dweib1(?T(x),?T(m)[  i],?T(s)[  1]) 

} 

# 

#  To  prevent  too  small  y-axis,  set  the  y-axis  limit  at  least  0.05 

# 

?T(my)_ifelse(max(?T(y) ) <0.05,0. 05, max( ?T(y) ) ) 
sym_c(  M " ,  "2" ,  "3" ,  "4") 
sic t  c(5, 34, 58,82) 

plotT?T(x) [slct] ,?T(y) [ 1 ,slct] ,pch=sym[ 1 ] ,xlab="X  VALUE" ,ylab="n , 
type="p",  maln="SHAPE  OF  WEIBULL  DISTRIBUTION  with  Different 
Parameters",  yl  im=c(0,?T(my) ) ,xl im=c(?T(x) [ 1 ] ,?T(x) [ 100] ) ,  err=-l) 
lines(?T(x) , ?T( y )  C 1 , 3 ) 
for(  i  in  2:?T(n)  )  { 

po  ints(?T(x)  [slct+3*(  i-1 )  ]  ,?T(y)  [  i,(  slct+3*(  1-1 ))  ]  ,pch=sym[  i] ) 

1  ines( ?T( x)  ,?T(y)[  i,]) 

1 

al_rep(0,4) 
be_rep(0,4) 
for  (  i  in  1:4  )  { 

al[  i]_ifelse(  i<=?T(n),  ?T(m)  [m  in(  i,?T(n) )  ] ,  NA) 
be[  i]  ifelseC  i<=?T(n) ,  ?T(  s)  [m  in(  i,?T(n) )  ] ,  NA) 

} 

mtext(  s  ide=2,  line=1,  outer=T,  "PDF") 

mtext(  s  ide=1 ,  line=1,  outer=T, 

encode( "Shape  P  [" ,al[ 1 ] , al[2] , al [ 3 1 , al[4] ,"]" , 

"  Scale  P  [",be[1],be[2],be[33,be[4],"J")) 

rm(?T( n) ,?T(x) ,?T(m) ,?T( s) ,?T(y) ,?T(my) , al , be, slot, sym) 

}) 

END 
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MACRO  betaset 

({ 

item  c( "SHAPE  OF  DISTRIBUTION", 
"SHAPE  COMPARISON", 

"RETURN  TO  PREVIOUS  STEP") 
actlon_c(  "?betaplot", 

"?obetaplot","?cont") 
menu(  item, act  ion) 
rm(  item,  action) 

}) 

END 


) 


MACRO  betaplot( 
av/?PROMPT( ALPHA  VALUE  (  A  > 
bv/?PROMPT( BETA  VALUE  (  B  > 

# 

#  This  is  a  Macro  to  plot  the  beta 

#  probability  distribution 

# 

(t 

par(mfrow=c(  1 , 1 ) ,  oma=c( 0,2, 0,0) ) 

?T(  a)_av 

?T(b)~bv 

?T( x)  seq(0, 1 ,len=102) 


)/, 

)  /) 


Exclude  the  point  x=0  and  x=1 


}) 


?T(x)_?T(x)[?T(x)>0  &  ?T( x)< 1 ] 

?T(y)_dbeta( ?T( x) ,?T( a) ,?T( b) ) 

plot(?T(x) ,?T(y) ,xlab="X-VALUE" ,ylab="" , types "1" , 
main="SHAPE  OF  BETA  DISTRIBUTION", 
sub=encode( "ALPHA  :  ”,?T(a),"  BETA  :  ",?T(b))) 
mtext(side=2,  line=1,  outer=T,  "PDF") 
rm(?T(x) ,?T(y) ,?T( a) ,?T(b) ) 
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MACRO  obetaplot( 

n/?PROMPT( NUMBER  OF  PLOT(up  to  4)  :  )/, 

m/?PROMPT( ALPHA( pos  itive) ;ex,2, 1 ,2  :  )/, 

s/ ? PROMPT (BETA  ( pos it ive) ;ex, .3, 1 ,2  :  )/, 
maxx/?PROMPT(MAX  X  (less  than  1)  :  )/) 

# 

#  This  is  a  Macro  to  compare  the  shape  of  beta  probability 

#  distribution  with  different  parameters 

# 

({ 

par(mfVow=c( 1 , 1 ) ,  oma=c( 2, 2, 0,0) ) 

?T(n)_n 

?T(m)_c(m) 

?T( s)_c( s) 

?T(y)_matr  ix( 0,nrow=?T( n) ,ncol=50) 

?T(x)_seq(0,maxx,len=51 ) 

# 

#  Exclude  the  point  x=0 

# 

?T(x)_?T(x) [?T(x)>0] 
for  (  i  in  1:?T(n)  )  { 

?T(y)[  i,]  dbeta(?T(x)  ,?T(m)  [  i]  ,?T(  s)  [  i] ) 

} 

# 

#  To  prevent  too  small  y-axis,  set  the  y-axis  limit  at  least  0.05 

# 

?T(my)_ifelse(max(?T(y))<0.05,0.05,max(?T(y))) 

sym_c("1",n2",n3","4n) 

slot  c(5»17,29,4l) 

plotT?T(x) [slot] ,?T(y) [ 1 ,slct] ,pch=sym[ 1 ],xlab="X  VALUE", ylab="", 
type="p",  main="SHAPE  OF  BETA  DISTRIBUTION  with  Different 
Parameters",  yl  im=c( 0,?T(my) ) ,xl  im=c( ?T(x) [ 1 ] ,?T( x) t50] ) ,  err=-1) 
1  ines(?T(x)  ,?T(y)  [  1 ,  ]) 
for(  i  in  2:?T(n)  )  { 

po ints(?T(x) [slct+3*(  i—  l)],?T(y)(  i,( slct+3*(  i-1 ) )  ]  ,pch=sym[  i] ) 

1  ines(?T(x)  ,?T(y)C  i,  ]) 

} 

al_rep(0,4) 
be_rep(0,4) 
for  (  i  in  1  :4  )  { 

al[  i]_ifelse(  i<=?T(n),  ?T(m)  Cm  in(  i,?T(n) )  ] ,  NA) 
bet  i]_ifelse(  i<=?T(n),  ?T(s)[min(  i,?T(n))],  NA) 

} 

mtext(side=2,  line=1,  outer=T,  "PDF") 

mtext(side=1 ,  line=1,  outer=T, 

encode( "ALPHA  [ " , al[ 1 ] , al[2] , al[3) , al[4] , ")" , 

"  BETA  [",be[ 1],be[2],be[3],be[4],"]")) 
rm(?T(n) ,?T(m) ,?T(s) ,?T(x) ,?T(y) ,al,be,sym,slct) 


MACRO  chisquare 

({ 

item_c( "SHAPE  OF  DISTRIBUTION", 
"SHAPE  COMPARISON", 

"RETURN  TO  PREVIOUS  STEP") 
action_c(  "?ch  isqplot" , 

"?ochlsqplot","?cont") 
menu(  item,  act  ion) 
rm(  item,  action) 

)) 

END 


MACRO  chisqplot( 

m/?PROMPT( DEGREE  OF  FREEDOM  :  )/, 
maxx/? PROMPT (MAX  X  for  PLOT  :  )/) 

# 

#  This  is  a  Macro  to  plot  the  ch isquareetr  ic 

#  probability  distribution 

(  { 

par(mfrow=c( 1 , 1 ) ,  oma=c( 0,2, 0,0) ) 

?T(m)_m 

?T(x)_seq(0, maxx, len= 100) 

# 

#  Exclude  the  point  x=0 

# 

?T(x)_?T(x)[?T(x)>0] 

?T(y)_dchisq(?T(x) ,?T(m)) 

# 

#  To  prevent  too  small  y-axis,  set  the  y-ax  is  limit  at  least  0.05 

# 

?T(my)_ifelse(max(?T(y))<0. 05,0.05, max(?T(y))) 
plot(?T(x) ,?T(y),xlabs"X-VALUE",ylab="", 

mains"SHAPE  OF  CHISQUARE  DISTRIBUTION" ,yl  imsc( 0,?T( my) ) , 
subsencode( "DEGREE  OF  FREEDOM  :  ",  ?T(m) ) , type="l") 
mtext(  s  ides2,  line=1,  outersT,  "PDF") 
rm(?T(x) ,?T(y) ,?T(my) ,?T(m) ) 


MACRO  ochisqplot( 

n/?PROMPT( NUMBER  OF  PLOT(up  to  4)  :  )/, 

m/?PROMPT( DEGREE  OF  FREEDOM( ex) 2,3.4  :  )/, 
maxx/?PROMPT( MAX  X  for  PLOT  :  )/) 

# 

#  This  la  a  Macro  to  compare  the  shape  of  chlaquare 

#  probability  distribution  with  different  parameters 

# 

({ 

par(mfrow=c( 1 , 1 ) ,  oma=c(2,2,0,0) ) 

?T(n)_n 

?T(m)_c(m) 

?T(y)_matr  ix(0,nrow=?T(n) ,ncol=50) 

?T(x)_seq( 0,maxx,len=51) 

# 

#  Exclude  the  point  x=0 

# 

?T(x)_?T(x)[?T(x)>0] 
for  ("i  In  1  :?T(n)  )  { 

?T(y)  [  i,  ]  dchisq(?T(x)  ,?T(m)  C  i] ) 

} 

# 

#  To  prevent  too  small  y-axis,  set  the  y-axis  limit  at  least  0.05 

# 

?T(my)_ifelse(max(?T(y)X0.05,0.05,max(?T(y))) 

sym_c("1","2","3","4") 

slot  c(5, J7.29.41) 

plotT?T(x) [slot] ,?T(y) [ 1 .slot] ,pch=sym[ 1 ] ,xlab="X  VALUE", ylab="n, 
type="p",  raaln= "SHAPE  OF  CHISQUARE  DISTRIBUTION  with  Different 
Parameters",  yl  im=c(0,?T(my) ) ,xl  im=c(?T(x) [l],?T(x)t50])) 

1  ines(?T(x) ,?T(y) [ 1 , ]) 
for(  i  in  2:?T(n)  )  { 

po  ints(?T(x)  [slct+3*(  i-1 )  ]  ,?T(y)  C  i,(  slct+3*(  i-1 ) )  ]  ,pch=sym[  i]) 

1  ines(?T(x)  ,?T(y)  C  i,  3) 

} 

mu_rep( 0,4) 

for  (  i  in  1 : 4  )  t 

mu[  i]_ifelse(  i<=?T(n) ,  ?T(m)  [min(  i,?T(  n) )  ] ,  NA) 

} 

mtext(  s  ide=2,  1  inert,  outer=T,  "PDF") 
mtext( s ide=  1 ,  line=1,  outer=T, 

encode( "Degree  of  Freedom  [ " ,mu[ 1 ] ,mu[2] ,mu[3) ,mu[ 4] , "] ") ) 
rm(?T(n) ,?T(x) ,?T(m) ,?T(y) ,?T(my) ,mu,slct,sym) 

}) 

END 


I 
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MACRO  fd  is 

({ 

item_c( "SHAPE  OF  DISTRIBUTION", 
"SHAPE  COMPARISON", 

"RETURN  TO  PREVIOUS  STEP") 
action_c( "?  f^lot" , 

"?offclot","?cont") 
menu(  item, act  ion) 
rm(  item,  action) 

}) 

END 


MACRO  f*>lot( 

d fti/?PROMPT( D.F  1  :  )/, 

d fd/?PROMPT( D.F  2  :  )/, 

maxx/?PROMPT(MAX  X  for  PLOT  :  )/) 

4 

#  This  is  a  Macro  to  plot  the  F  probability  distribution 

({ 

par(mfrow=c(  1 , 1 ) ,  oma=c(0,2,0,0) ) 

?T(n)_dfh 

?T(d)_dfd 

?T(x)_seq(0,maxx,len=102) 

4 

4  Exclude  the  point  x=0 

# 

?T(x)  ?T(x) [?T(x)>0] 

?T( y )  df(?T(x),?T(n),?T(d)) 

4 

4  To  prevent  too  small  y-axis,  set  the  y-axis  limit  at  least  0.05 

# 

?T(my  )_ifelse(max(?T( y ) )<0 .05 ,0.05 ,max( ?T(y ) ) ) 
plot(?T(x) ,?T(y) ,xlab="X-VALUE",ylab=””, typer "1", 
main="SHAPE  OF  F  DISTRIBUTION" ,yl  im=c( 0,?T(my) ) , 
sub=encode( "DF  numerator :",?T( n) , "DF  denom inator : " ,?T( d) ) ) 
mtext(  s  ide=2,  line=1,  outer=T,  "PDF") 
rm(?T(x) ,?T(y) ,?T(my) ,?T(n) ,?T(d) ) 


MACRO  offelotC 

n/?PROMPT( NUMBER  OF  PL0T(up  to  4)  :  )/, 

d fh/?PR0MPT( D.F  1(ex)3,5,10  :  )/, 

d fd/?PR0MPT( D.F  2(ex)5,9,13  :  )/, 

maxx/?PROMPT(MAX  X  for  PLOT  :  )/) 

# 

#  This  is  a  Macro  to  compare  the  shape  of  F  probability 

#  distribution  with  different  parameters 

# 

(t 

par(mfVow=c( 1 , 1 ) ,  oma=c(2,2,0,0) ) 

?T(n)_n 

?T(m)_c(dfh) 

?T(s)_c(dfd) 

?T(y)_matr  ix(0,nrow=?T(n) ,ncol=50) 

?T(x)_seq( 0,maxx,len=51 ) 

# 

#  Exclude  the  point  x=0 

# 

?T(x)_?T(x)[?T(x)>0] 
for  (  i  in  1:?T(n)  )  { 

?T(y)  [  i,  ]  dfC?T(x)f?T(m)[  i],?T(s)[  i]) 

} 

# 

#  To  prevent  too  small  y-axis,  set  the  y-axis  limit  at  least  0.05 

# 

?T(my)  ifelse(max(?T(y) )<0.05 .0.05,max(?T(y) ) ) 

slct_cT5, 17,29,41) 

sym_c("1",n2",B3",B1»") 

plot( ?T( x) [ slot] ,?T(y ) [ 1 f slot] ,pch=sym[ 1 ] ,xlab=BX  VALUE", ylab=BB , 
type=BpB,  main=BSHAPE  OF  F  DISTRIBUTION  with  Different  Parameters", 
yl  im=c( 0,?T(my) ) ,xl  im=c(?T( x) [1],?T(x)[50])) 

1  ines(?T(x) ,?T(y) [ 1 , ]) 
for(  i  in  2:?T(n)  )  { 

po  ints(?T(x)  [slct+3*(  i-1 )  ]  ,?T(y)  [  i,(  slct+3*(  i-1 ) )  ]  ,pch=sym[  i] ) 

1  ines(?T( x)  ,?T(y )  [  i,  ] ) 

} 

d1_rep(0,4) 
d2_rep( 0,4) 
for  (  i  in  1 : 4  )  { 

d  1 C  i]_ifelse(  i<=?T(  n) ,  ?T(m)  [m  in(  i,?T( n) )  3 ,  NA) 
d2[  i]_ifelse(  i<=?T(n),  ?T(  s)  [m  in(  i,?T(  n) )  ] ,  NA) 

} 

mtext(side=2,  line=1,  outer=T,  "PDF") 

mtext(3ide=1,  line=1,  outer=T, 

encode("DF  1  [ "  ,d1 [ 1 ] ,d1 [2] ,d1 [ 31 ,d1 [4] , " ] " , 

"  DF  2  [B,d2[1],d2[2],d2[3]»d2[4],"]")) 

rm(?T(n) ,?T(x) ,?T(m) ,?T(s) ,?T(y) ,?T(my) ,d1 ,d2,slct,sym) 

}) 

END 


MACRO  bvd 

# 

#  This  is  a  macro  to  provide  information  about  continuous 

#  bivariate  distribution. 
it 

(l 

item_c( "NORMAL  BIVARIATE  DISTRIBUTION", 

"INDEPENDENT  GAMMA  BIVARIATE  DISTRIBUTION", 
"QUIT") 

act  ion_c(  "?b  inormal"  ,"?b  igammaset" ,  "q") 
menu(  item  ,  act  ion) 

}) 

END 


MACRO  b  inormal ( 
x/?PR0MPT( X  value  :  )/, 

mx/?PROMPT(MU  X  :  )/, 

sx/?PROMPT( S igma  X  :  )/, 

y/?PROMPT( Y  value  :  )/, 

my/?PROMPT( MU  Y  :  )/, 

sy/?PROMPT( Sigma  Y  :  )/) 

({ 

item_c( "SHAPE  OF  BIVARIATE  PDF", 

"SHAPE  OF  INDEPENDENT  BIVARIATE  CDF", 
"PDF", 

"INDEPENDENT  CDF", 

"GENERATE  RANDOM  DEVIATES", 

"RETURN  TO  PREVIOUS  STEP") 
act  ion_c(  "?b  inorm", 

"?b  icnorm" , 

"?db  inorm" , 

"pnorm(x,mx,sx)  * 

pnorm(y,my,sy)", 

"?rb  inorm", 

"?bvd") 

menu(  item, act  ion) 
rm(  item,  action) 
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MACRO  binorm( 

mx/?PROMPT( MU  X(with  smaller  S.D)  :  )/, 

sx/?PROMPT( Sigma  X  :  )/, 

my/?PROMPT(MU  Y  :  )/, 

sy/?PROMPT( Sigma  Y  :  )/, 

r/?PR0MPT( Correlat ion( -1<  R  < 1 )  :  )/, 

in t/?PROMPT( Number  of  Interval  :  )/) 

# 

#  This  Is  a  Macro  to  plot  PDF  Surface  for  both  Independent  and 

#  Dependent  Bivariate  Normal  Probability 

# 

({ 

par(mfrow=c( 1 ,2) ,  oma=c( 3, 0*2,0) ) 

?T( mx)_mx 
?T( sx)_sx 
?T(my)_my 
?T(sy)_sy 
?T(  r)_r 
?T(  i)_int 

?T(x)_seq((?T(mx)-2«?T(sx) ) , ( ?T( mx)+2«?T( sx) ) , len=?T( i) ) 

#  To  set  the  range  of  X 

?T(y)_seq( ( ?T(my)-2*?T( sy) ) , ( ?T( my )+2*?T( sy)) , len=?T( i)) 

#  To  set  the  range  of  Y 

?T( xr)_rep( ?T( x) ,rep(?T( i) ,?T( i) ) ) 

?T(yr)_rep(?T(y) ,?T(  i) ) 

?T( z)_?db inorml ( ?T(mx) ,?T( sx) ,?T(my ) ,?T(sy) ,?T(r) ,?T(xr) ,?T(yr) ) 
?T( z)  matr ix(?T(z) ,nrow=?T( i) ,byrow=TRUE) 

?T( zpT_?T( z) /max( ?T( z) ) 

#  To  get  larger  value  for  Z,  devided  by  maximum  Z  value. 

#  This  will  make  sure  that  largest  Z  is  1 . 

?T(rx)_max(?T(x) )-min(?T(x) ) 

?T( ry)_max(?T(y) )-m  in(?T(y) ) 

?T( ar)_?T(rx)/?T(ry) 

4  To  get  the  ratio  of  X  and  Y,  (maxx-minx)/(maxy-miny) 
persp( ?T( zp) , ,?T( ar) ) 

#  View  point  Is  default  value  c(-6,-8,5),  if  you  want  to  change 

#  the  view  point,  you  can  use  other  value  c(x,y,z). 
t it le(suba" Range  of  Y(L)  4  X(R)  :  Mu  +/-  2*S") 

?T{ lm)_(max(?T(rx) ,?T(ry)))/2 

contour(  ?T(  x) ,?T(y) ,?T(z) ,xl lm=c( (?T(mx)-?T( lm) ) ,(?T(mx)+?T(lm) ) ) 
yl lm=c( ( ?T( my )-?T( lm) ) , ( ?T( my )+?T( lm) ) ) ,n  int=3) 

4  To  get  the  same  distance  of  X  and  Y  axis,  use  xl  im  and  yl  im 
t itle( xlab="x  value" ,ylab="y  value") 
mtext( s ide=3 ,  lineal,  outer=T, 

"PDF  Surface  4  Contour  Plot  for  Bivarate  Normal  Distribution") 
mtext( s idea  1 ,  lineal,  outeraT, 

encode( "Ml  a",?T(mx),"  SI  a",?T(sx),"  M2  a",?T(my), 

"  S2  =",?Tlsy) ,"  R  a" ,?T( r) ) ) 
rm(  ?T( mx ) ,?T( sx) ,?T(my) ,?T(sy) ,?T(r) ,?T( i),?T(z) ,?T(zp) , 

?T( xr ) ,?T( yr ) ,?T(x) ,?T(y) ,?T( lm) ,?T( ar) ,?T( rx) ,?T( ry ) ) 

)) 

END 
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MACRO  bicnorm( 

mx/?PROMPT(MU  X(with  smaller  S.D)  :  )/, 

sx/?PR0MPT( Sigma  X  :  )/, 

my/?PROMPT(MU  Y  :  )/, 

sy/?PROMPT( Sigma  Y  :  )/, 

lnt/?PRGMPT( Number  of  Interval  :  )/) 
# 


#  This  is  a  Macro  to  plot  CDF  Surface  for  Independent 

#  Bivariate  Normal  Probability 

# 

({ 

par(mfrow=c( 1 , 1 ) ,  oma=c( 3»0,2 , 0) ) 

?T(mx)  mx 
?T(sx)~sx 
?T(my)_my 
?T(sy)_sy 
?T(  i)_int 

?T(x)_seq((?T(mx)-3«?T(sx)),(?T(mx)+3#?T(sx)),len=?T(  i) ) 

#  To  set  the  range  of  X 

minx_min(?T(x) )  #  minimum  of  x 

maxx  max(?T(x))  t  maximum  of  x 

?T(y7_seq((?T(my)-3*?T(sy)),(?T(my)+3*?T(sy)),len=?T(  i) ) 

#  To  set  the  range  of  Y 

miny_min(?T(y) )  #  minimum  of  y 

maxy_max(?T(y))  #  maximum  of  y 

?T(zx)_pnorm(?T(x) ,?T(mx) ,?T(sx) ) 

?T( zy )_pnorm( ?T( y) , ?T(my ) , ?T( ay)) 

?T(zx)_matr  ix(?T(zx) fnrows?T(  i) ) 

?T(zy)_matrix(?T(zy),ncol=?T(  i) ) 

?T(  z)  ?T(zx)it*?T(zy) 

?T( zpT_?T( z)/max( ?T( z) ) 

#  To  get  larger  value  for  Z,  devided  by  maximum  Z  value. 

#  This  will  make  sure  that  largest  Z  is  1 . 

?T(ar)  (maxx-minx)/(maxy-miny) 

#  To  get  the  ratio  of  X  and  Y,  (maxx-minx)/(maxy-miny) 
persp(?T(zp) , ,?T( ar) ) 

#  View  point  is  default  value  c(-6,-8,5),  if  you  want  to  change 

#  the  view  point,  you  can  use  other  value  c(x,y,z). 
mtext(side=3»  line=1,  outer=T, 

"CDF  Surface  for  Bivariate  Independent  Normal  Distribution") 
mtext( s ide= 1 ,  line=0,  outer=T, 

encode( "M1=" ,?T( mx) , "S1=" ,?T( sx) , "M2=",?T( my) , "S2=" ,?T( sy ) ) ) 
mtext(side=1 ,  line=2,  outer=T, 

encode("Y(L)  :  C",mlny,maxy,"]  X(R)  :  [", minx, maxx, "]") ) 
rm(?T(mx) ,?T(sx) ,?T(my) ,?T(sy) ,?T(  i) ,?T(z) ,?T(zp) , 

?T(x)  ,?T( y )  ,?T(  ar) , minx, maxx, miny,maxy) 

}) 
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MACRO  b  jgammasetC 

•  * 
vV 

S*y. 

l 

'.v:/ 

' 

.•  >  V 

;g; 

ax/?PROMPT( Alpha  X 

:  )/, 

bx/?PROMPT( Beta  X 

:  )/, 

C.V- 1' 

ay/?PR0MPT( Alpha  Y 

:  )/, 

I 

by/?PROMPT( Beta  Y 

:  )/. 

x/?PROMPT( X  value 

:  )/» 

y/?PROMPT( Y  value 

:  )/) 

a 

item_c( "SHAPE  OF  INDEPENDENT  BIVARIATE  PDF", 

"SHAPE  OF  INDEPENDENT  STANDARD  BIVARIATE  CDF", 
"INDEPENDENT  PDF", 

"INDEPENDENT  STANDARD  CDF", 

"GENERATE  RANDOM  DEVIATES", 

"RETURN  TO  PREVIOUS  STEP") 
action_c(  "?bigamma", 

"?bicgamman, 

"?gamfun1(x,ax,bx)  * 

?g  amfun 1  ( y ,  ay ,  by ) " , 

"pgamma(x,ax)  * 

pgamma(y,ay)". 


m 
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MACRO  bigamma( 

ax/?PROMPT( Alpha  X  :  )/, 

bx/?PROMPT( Beta  X  :  )/, 

ay/?PROMPT( Alpha  Y  :  )/, 

by/?PROMPT( Beta  Y  :  )/, 

m/?PROMPT(Max imum  range  of  X  and  Y  :  )/, 

int/?PROMPT( Number  of  Interval  :  )/) 

# 

#  This  Is  Macro  to  plot  the  PDF  Surface  for 

#  Independent  Bivariate  Gamma  Probability 

# 

({ 

par(mfrow=c( 1 ,2) ,  oma=c(3, 0,2,0) ) 

?T(ax)  ax 
?T(bx)“bx 
?T(  ay)_ay 
?T(  by)_by 
?T(m)_m 
?T(  i)_int 

?T(x)_seq(0,?T(m) ,len=?T(  i) ) 

#  To  set  the  range  of  X 
?T(y)_seq( 0,?T(m) ,len=?T( i) ) 

#  To  3et  the  range  of  Y 

?T(zx)_c(0,?gamfun1(?T(x) [2:?T(  i)  ] ,?T( ax) ,?T( bx) ) ) 

?T( zy)_c(0,?gamfun1(?T(y)[2:?T( i) ] ,?T(  ay) ,?T( by) ) ) 

?T(zx)_matr ix(?T(zx) ,nrow=?T(  i) ) 

?T(zy)_matrix(?T(zy),ncol=?T(  i) ) 

?T( z)  ?T(zx)**?T(zy) 

?T(zpT_?T(z)/max(?T(z) ) 

#  To  get  larger  value  for  Z,  devided  by  maximum  Z  value. 

#  This  will  make  sure  that  largest  Z  is  1 . 
persp(?T( zp) ) 

#  View  point  is  default  value  c(-6,-8,5),  if  you  want  to  change 

#  the  view  point,  you  can  use  other  value  c(x,y,z). 
contour(?T(x) ,?T(y) ,?T(z) ,n int=3 ,xlab="x  value" ,ylab="y  value") 
mtext( s ide=3 ,  line=1,  outer=T, 

"PDF  Surface  &  Contour  Plot  for  Bivariate  Gamma  Distribution") 
mtext(  side=  1 ,  line=1,  outer=T, 

encode( "A1=",?T( ax) , "B1  =  " ,?T(  bx) ,"A2=",?T( ay) ,"B2=",?T(by) ) ) 
rm(?T( ax) ,?T(bx) ,?T(ay) ,?T(by) ,?T(m) ,?T(  i)  ,?T(z) ,?T(zp) , 

?T(x) ,?T(y) ,?T(zx) ,?T(zy) ) 

}) 

END 
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MACRO  bicgamma( 

ax/?PROMPT( Alpha  X  :  )/, 

ay/?PROMPT( Alpha  Y  :  )/, 

m/?PROMPT( Max imum  range  of  X  and  Y  :  )/, 

int/?PROMPT( Number  of  Interval  :  )/) 

# 

#  This  Is  Macro  to  plot  the  CDF  Surface  for 

#  Independent  Standard  Gamma  Probability 

(l 

par(mfrow=c( 1,1),  oma=c( 3, 0,2,0) ) 

?T( ax)_ax 
?T(  ay)_ay 
?T(m)_m 
?T(  i)_int 

?T(x)_seq(0,?T(m) ,len=?T(  1)) 

#  To  set  the  range  of  X 
?T(y)_seq(0,?T(m),len=?T( i) ) 

#  To  set  the  range  of  Y 
?T(zx)_c(0,pgamma(?T(x)  [2  :?T(  i)  ]  ,?T(  ax) ) ) 

?T( zy)_c(0,pgamma(?T(y) [2:?T(  i)],?T(ay))) 

?T(zx)_matr ix(?T(zx) ,nrow=?T(  i) ) 

#  To  make  ?T(zx)  m  by  1  matrix 
?T(zy) jnatr ix(?T(zy) ,ncol=?T(  i) ) 

#  To  make  ?T(zy)  1  by  m  matrix 
?T(z)  ?T( zx)$*?T( zy) 

?T( zp7_?T( z)/max(?T( z) ) 

#  To  get  larger  value  for  Z,  devided  by  maximum  Z  value. 

#  This  will  make  sure  that  largest  Z  is  1 . 
persp(?T(zp)) 

#  View  point  is  default  value  c(-6,-8,5),  if  you  want  to  change 

#  the  view  point,  you  can  use  other  value  c(x,y,z). 
mtext(side=3,  line=1,  outer=T, 

"CDF  Surface  for  Bivariate  Independent  Gamma  Distribution") 
mtext(side=1 ,  line=0,  outer=T, 

encode( "Alpha  1  =",?T(ax),"  Alpha  2  =",?T(ay))) 
mtext(side=1 ,  line=2,  outer=T, 

encode( "Range  of  X(R)  4  Y(L)  :  [  0  , " ,?T( m) , "] ") ) 
rm(?T( ax) ,?T(ay) ,?T(m) ,?T( i),?T(z) ,?T(x) ,?T(y) ,?T(zx) , 

?T(zy) ,?T(zp) ) 


Appendix  B :  Macros  for  Maximum  Likelihood  Estimation 

Table  of  Contents 

Macro  ?mle:  Menu  for  Maximum 

Likelihood  Estimation  . . 

Macro  ?mledisc:  Menu  for  Discrete  Distributions  . 

Macro  ?mleber:  Menu  for  Bernoulli  Distributions  . 

Macro  ?mleber1:  MLE  for  P  of  1  Sample  Bernoulli 
Distribution  . 

Macro  ?mleber2:  MLE  for  P  of  2  Sample  Bernoulli 
Distribution  . 

Macro  ?mlepos:  Menu  for  Poisson  Distributions  . 

Macro  ?mlepos1:  MLE  for  X  of  1  Sample 

Poisson  Distribution  . . . 

Macro  ?mlepos2:  MLE  for  X  of  2  Sample 

Poisson  Distribution  . 

Macro  ?mlegeo:  Menu  for  Geometric  Distributions  . 

Macro  ?mlegeo1:  MLE  for  P  of  1  Sample 

Geometr  ic  D  istr  ibut  ion  . 

Macro  ?mlegeo2:  MLE  for  P  of  2  Sample 

Geometric  Distribution  .  . . 

Macro  ?mlerey:  Menu  for  ReyLam  Distributions  . 

Macro  ?mlerey1:  Menu  for  1  Sample  ReyLam  Distribution  .  .  . 

Macro  ?mlerey2:  Menu  for  2  Sample  ReyLam  Distribution  .  .  . 

Macro  ?mlerey1p1:  MLE  for  P  of  1  Sample 

ReyLam  Distribution  . 

Macro  ?mlerey1p2:  MLE  for  P^  of  1  Sample 

ReyLam  Distribution  . 
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Macro  ?mlerey1pb:  MLE  for  P1  and  ?2  1  SamPle 

ReyLam  Distribution  . 


Macro  ?mlerey2p1:  MLE  for  P1  of  2  Sample 
ReyLam  Distribution  . 


Macro  ?mlerey2p2:  MLE  for  P  of  2  Sample 
ReyLam  Distribution  . . 


Macro  ?mlerey2pb:  MLE  for  P  and  P ^  of  2  Sample 
ReyLam  Distribution  . 


Macro  ?mledunif:  Menu  for  Discrete 
Unifrom  Distributions  . 


Macro  ?mledunifl:  MLE  for  Lower  Bound  of  Discrete 
Unifrom  Distributions  . . . 


Macro  ?mledunifu:  MLE  for  Upper  Bound  of  Discrete 
Unifrom  Distributions  . 


Macro  ?mledunifb:  MLE  for  Lower  and  Upper  Bound  of 
Discrete  Unifrom  Distributions  . 


Macro  ?mlecont:  Menu  for  Continuous  Distributions  . 

Macro  ?mlenorm:  Menu  for  Normal  Distribution  . 

Macro  ?mlenorm1:  Menu  for  1  Sample  Normal  Distribution  .  . 

Macro  ?mlenorm2:  Menu  for  2  Sample  Normal  Distribution  .  . 

Macro  ?mlenorm1m:  MLE  for  Mean  of  1  Sample 

Normal  Distribution  . 


Macro  ?mlenorm1s:  MLE  for  Standard  Deviation  of 
1  Sample  Normal  Distribution  ........ 


Macro  ?mlenorm1b:  MLE  for  Mean  and  Standard  Deviation  of 
1  Sample  Normal  Distribution  . . 


Macro  ?mlenorm2m:  MLE  for  Mean  of  2  Sample 
Normal  Distribution  . . . 


Macro  ?mlenorm2s:  MLE  for  Standard  Deviation  of 
2  Sample  Normal  Distribution  . 


Macro  ?mlenorm2b:  MLE  for  Mean  and  Standard  Deviation  of 
2  Sample  Normal  Distribution  . 


Macro  ?mlelnorm:  Menu  for  Log  Normal  Distribution 
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Macro  ?mlelnorm1 :  Menu  for  1  Sample  Log  Normal 
Distribution  . 

Macro  ?mlelnorm2:  Menu  for  2  Sample  Log  Normal 
Distribution  . . . 

Macro  ?mlelnorm1m:  MLE  for  Mean  of  1  Sample 

Log  Normal  Distribution  . 

Macro  ?mlelnorm1s:  MLE  for  Standard  Deviation  of 

1  Sample  Log  Normal  Distribution  . 

Macro  ?mlelnorm2m:  MLE  for  Mean  of  2  Sample 

Log  Normal  Distribution  . 

Macro  ?mlelnorm2s:  MLE  for  Standard  Deviation  of 

2  Sample  Log  Normal  Distribution  . 

Macro  ?mlenorm2b:  MLE  for  Mean  and  Standard  Deviation  of 
2  Sample  Log  Normal  Distribution  . 

Macro  ?mleexpon:  Menu  for  Exponential  Distribution 

Macro  ?mleexp1:  MLE  for  X  of  1  Sample 

Exponential  Distribution  . 

Macro  ?mleexp2:  MLE  for  X  of  2  Sample 

Exponent  ial  D  istr  ibut  ion  . 

Macro  ?mlecunif:  MLE  for  Lower  and  Upper  Bound  of 
Continuous  Uniform  Distribution  . . 

Macro  ?mlestgam:  Menu  for  Standard  Gamma  Distribution 

Macro  ?mlestgam1 :  MLE  for  a  of  1  Sample 

Standard  Gamma  Distribution  . 

Macro  ?miestga m2:  MLE  for  a  of  2  Sample 

Standard  Gamma  Distribution  . 


MACRO  mle 

({ 

item_c{  "Discrete  Distribution 
"Continuous  Distribution 
"Quit") 

action  c( "?mled  isc", 

"?mlecont", 

"q") 

menu (  item  ,  action) 
rm(  item,  action) 

)) 

END 


MACRO  mledisc 
(t 

item  c(  "Bernoulli  Distribution" 
"Poisson  Distribution" 
"Geometric  Distribution" 
"ReyLamb  Distribution" 
"Uniform  Distribution" 
"Go  to  previous  step") 
act ion_c( "?mleber", 

"?mlepos", 

"?mlegeo", 

"?mlerey", 

"?mledunif", 

"?mle") 

menu(  item  ,  action) 
rm(  item,  action) 

}) 

END 


MACRO  mleber 

(  { 

item  c(  "Sample  size  one", 
"Sample  size  two", 

"Go  to  previous  step") 
act ion_c(  "?mleber 1", 
"?mleber2" , 

"?mled  isc") 
menu(  item  ,  action) 
rm(  item,  action) 
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MACRO  mleber1(x/?PR0MPT( Random  Sample  0  or  1  :)/, 
p/?PR0MPT( Estimated  P(  X  =  1  )  :)/) 

# 

#  This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  Bernoulli  d  istr  ibut  ion. (Sample  size  one) 

# 

(l 

par(mfrow=c( 1,1),  oma=c(5,2,0,0) ) 

?T( r)  x 
?T(p)“p 
?T(x)  c( 0, 1 ) 

?T(y)  ?mber(?T(x)  ,?T(p) ) 

?T( iyT  ?mber(?T( r) ,?T( p) ) 
plot(?T(x) ,?T(y) , 

maln=  "PMF  for  Bernoulli  Distribution", 

subsencode( "For  Given  X:",?T(r),"  When  P  s" ,?T( p) , "PMF  s", 
?T( iy)) ,types"h",xlabs"X-Value",  ylabs"", 
xl im=c( -0.5, 1 .5) ,yl im=e( 0, 1 ) , labsc(2,5) ) 

?T( py)  ?mber(?T(r) ,?T(p) ) 
arrowsT-.5,?T(py),-1,?T(py)) 
po  ints(?T(r) ,?T(py) ,marks0) 
mtext(side=2,  linesl,  outersT,  "PMF") 
mtext(sidesl , linesl ,cexs2 ,outersTRUE, 

"If  you  want  to  see  the  MLE  for  P,  hit  Return 
when  GO?  appears.  If  not,  hit  the  Break  key") 

?T(pp)_seq(0, 1 ,lens51) 

?T( lp)_?mber( ?T( r) ,?T( pp) ) 

?T(ml)_max( ?T( lp) ) 

?T(mp)”?T( pp) [ ( 1 : len(?T( lp) ) ) [?T( lp)==?T( ml) ] ] 
par(mfrowsc( 1 , 1 ) ,  omasc(0,2,0,0) ) 
plot(?T(pp) ,?T( lp) , types ”1", 

mains"Max  imum  Likelihood  for  Bernoulli  Distribution", 
xlabs"P-value", ylabs"", xlimsc(-. 2,1 .2),yl imsc(0, 1 . 1*?T(ml) ) , 
subsencodeC "For  Given  X:",?T(r) ,"When  P  s",?T(mp), 

"  L(P)  =",?T(ml) ) ) 

mtext( s ides2,  linesl,  outersT,  "MLE") 

1  ines( c(?T( p) ,?T(p),-.2),c(0,?T(py),?T(py))) 
arrows( 0,?T(ml) ,-.2,?T( ml) ) 
arrows(?T(mp) ,?T(ml)/5,?T(mp) ,0) 

rm(?T(x),?T(p),?T(y),?T(r),?T(pp),?T(lp),?T(py),?T(  iy), 

?T(ml) ,?T(mp) ) 


MACRO  mleber2(x/?PR0MPT( Random  Sample  X;  0  or  1  :)/, 

y/?PROMPT( Random  Sample  Y;  0  or  1  :)/, 

p/?PROMPT( Estimated  P(  X  or  Y  =  1  )  :)/) 

# 

#  This  Is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  Bernoulli  d  istribut  ion(  Sample  size  two). 

# 

(  { 

par(mfrow=c( 1 , 1 ) ,  oma=c(5, 2,0,0) ) 

?T(x)_x 
?T(y)_y 
?T( p)  p 
?T(xx7_c(0,1) 

?T(yy)_c(0,1) 

?T(z)_matrix(?mber(?T(xx),?T(p)) ,2,1) 

matr lx( ?mber( ?T(yy) ,?T(p )), 1,2) 

?T( ly)_?mber(?T(x) ,?T(p) )*?mber( ?T( y ) ,?T(p) ) 
plot(rep(?T(xx) ,c(2,2) ) ,rep(?T(yy) ,2) , 

maln="PMF  for  Bernoulli  Distribution", 

sub=encode( "For  Given  X:",?T(x),"  Y:",?T(y),"  When  P  =", 
?T( p) , "PMF  =" ,?T(  ly) ) , types "n",lab=c( 2,2) , 
xlab="X-VALUE" ,  ylab="",xl lm=c(-.5, 1 .5) ,yl lm=c( -.5, 1 .5) ) 
points(?T(x) ,?T(y) , marks  1 ) 

1  ines(c(0,0) ,c(0,?T(z)[1,1])) 
lines(c(0,0),c( 1 , 1+?T(  z) [ 1 ,2] ) ) 

1  lnes( c( 1 , 1 ) ,c(0,?T(z) [2,1])) 

1  ines(c( 1 , 1 ) ,c( 1 , 1+?T(z) [2,2] )) 
mtext(side=2,  llnesl,  outer=T,  "Y  Value") 
mtext(side=1 , llnesl ,cexs2 ,outersTRUE, 

"If  you  want  to  3ee  the  MLE  for  P,  hit  Return 
when  GO?  appears.  If  not,  hit  the  Break  key") 

?T( pp)_seq( 0,1, lens5 1 ) 

?T(lp)_?mber(?T(x) ,?T( pp) )*?mber( ?T(y) ,?T(pp) ) 

?T(ml)_max(?T( lp) ) 

?T(mp)~?T(pp)[( 1:len(?T(lp)))[?T(lp)==?T(ml)]] 
par(mfrowsc( 1 , 1 ) ,  omasc(0,2,0,0) ) 
plot(?T( pp) ,?T( lp) , types "1" , 

mains  "Max  imum  Likelihood  for  Bernoulli  Distribution", 
xlabs"P-value",ylabs"",xl imsc(-.2, 1 .2) ,ylim=c( 0, 1 . 1*?T(ml) ) , 
subsencodeC "For  Given  X:",?T(x),"  Y:",?T(y),"  When  P  s",?T(mp) 
"  L(P)  s",?T(ml) ) ) 

1  ines(c(?T(p) ,?T(p),-.2),c(0,?T(  iy),?T(  iy))) 
arrows( 0,?T(ml) , -.2, ?T(ml)) 
arrows(?T(mp) ,?T(ml)/5,?T(mp) ,0) 
mtext(sides2,  linesl,  outersT,  "MLE") 

rm(?T(x),?T(p),?T(y),?T(pp),?T(lp),?T(  iy) ,?T(xx) ,?T(yy) , 

?T( z) ,?T(ml) ,?T(mp) ) 


MACRO  mlepos1( 

x/?PROMPT( Random  Sample  (Positive  Integer  Up  to  30)  :)/, 
r/?PR0MPT( Est  imated  Lambda  (  greater  than  0  )  :)/) 

# 

#  This  is  a  Macro  to  plot  the  maximum  likelihood  estimator 

#  for  Poisson  d  istribut  ion. (Sample  size  one) 

# 

(  { 

par(mfrow=c( 1 , 1 ) ,  oma=c(5,2,0,0) ) 

?T(x)  x 
?T( r)~r 
?T(  px7_0 : 30 

?T(y)  ?mpo  iss( ?T( px) ,?T( r) ) 

?T( pyT_?mpo iss( ?T( x) ,?T(r)) 

?T(my)_max(0.05,max(?T(y) ) ) 
plot(?T(px) ,?T(y) , 

main="PMF  for  Poisson  D istr  ibut  ion" , 
sub=encode( "For  Given  X:",?T(x),"  When  Lambda  =  ", 
"PMF  =",?T(py)),type="h",xlim=c(-5,30), 
xlab="X-VALUE",  ylab="",yl  im=c(0,?T(my)»6/5) ) 
arrows(?T(x) ,?T(py)+?T(my)/5,?T(x) ,?T(py)+?T(my)/20) 
arrows( -1 ,?T(py) ,-5,?T(py)) 
mtext( s ide=2,  1  ine= 1 ,  outer=T,  "PMF") 
mtext( s ide=1 ,1 ine= 1 ,cex=2 ,outer=TRUE, 

"If  you  want  to  see  the  MLE  for  Lambda,  hit  Return 
when  GO?  appears.  If  not,  hit  the  Break  key") 

?T( rr)_seq( 0,40,len=8l ) 

?T( rr)~?T( rr ) [?T( rr) >0] 

?T( lr)_?mpo iss(rep(?T(x) ,len(?T(rr) ) ) ,?T(rr) ) 
?T(ml)_?mpoiss(?T(x) ,?T(x)) 
par(mfrow=c( 1 , 1 ) ,  oma=c( 0,2, 0,0) ) 
plot(?T( rr) ,?T( lr) ,type="l", 

main="Max  imum  Likelihood  for  Poisson  Distribution", 
xlab="Lambda",ylab="", 

sub=encode( "For  Given  X:",?T(x),"  When  Lambda  =",?T 
"  L(L)  =",?T(ml) )) 

1  ines( c( ?T( r) ,?T( r) ,0) ,c( 0 ,?T( py ) ,?T( py) ) ) 
arrows (?T(x) ,?T(ml) ,0,?T(ml) ) 
arrow3(?T(x),?T(ml) ,?T(x) ,0) 
mtext( s ide=2,  line=1,  outer=T,  "MLE") 
rm(?T(x) ,?T(r) ,?T(y) ,?T( rr) ,?T( lr) ,?T(py) ,?T(my) , 
?T(px),?T(ml)) 
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MACRO  mlepos2( 

x/?PROMPT( Sample  X  (Positive  Integer  Up  to  30)  :)/, 
y/?PR0MPT( Sample  X  (Positive  Integer  Up  to  30)  :)/, 
r/?PR0MPT( Est  imated  Lambda  (  greater  than  0  )  :)/) 

This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 
for  Poisson  d  istr  ibut  ion(  Sample  size  two). 


par(mfrow=c(  1 , 1 ) ,  omasc( 5 ,0 ,0 ,0) ) 

?T(x)_x 
?T(y)_y 
?T( r)  r 

?T( pxj_max( 0 ,?T( x) -5) 

?T(px)_seq(?T(px) ,?T(px)+10) 

?T(py)_max(0,?T(y)-5) 

?T(py)_seq(?T(py) ,?T(py)+10) 

?T(zx)_matrix(?mpoiss(?T(px) ,?T( r ) ) , 1 1 , 1 ) 

?T(  zy)~matr ix(?mpo iss(?T(  py) ,?T(r) ) , 1 , 1 1 ) 
?T(z)_?T(zx)**?T(zy) 

?T( z)  ?T( z)/max( ?T( z) ) 

?T(yyT_?mpoiss(?T(x)  ,?T( r) )«?mpo  iss(?T(y)  ,?T(r) ) 
persp(?T(z) ) 

t  itle(main="PMF  for  Poisson  Distribution", 

sub=encode( "Y( L)  :  [" ,?T( py ) [ 1 ] ,?T( py ) [ 1 1 ] , "]  ", 

"X(R)  :  [ ", ?T(px) [ 1],?T(px)[11],"]")) 
mtext( s  ide= 1 ,1 ine=1 ,cex=2 .outers TRUE, 

encode( "For  Given  X:",?T(x),"  Y : ", ?T(y) , "  When  Lambda  = 
?T( r) , "PMF  s",?T(yy) ) ) 
mtext(sides1 , 1  ines3, cexs2, outer sTRUE, 

"If  you  want  to  3ee  the  MLE  for  Lambda,  hit  Return 
when  GO?  appears.  If  not,  hit  the  Break  key") 

?T( rr)_seq( O.^O.lensSl ) 

?T( rr)_?T( rr) [?T( rr ) >0] 

?T( lx)_?mpo  iss( rep( ?T( x) , len( ?T( rr) ) ) ,?T( rr) ) 

?T( ly)_?mpo iss( rep(?T(y) , len(  ?T( rr ) ) ) ,?T(  rr) ) 

?T( lr )_?T( lx)*?T( ly) 

?T(er)_(?T(x)+?T(y) )/2 

?T(ml)_?mpo  iss(?T(x) ,?T( er) )#?mpo iss( ?T(y) ,?T( er) ) 
par(mfrowsc( 1 , 1 ) ,  omasc(0,3,0,0) ) 
plot( ?T( rr) ,?T(lr) ,types"l", 

mains"Max  imum  Likelihood  for  Poisson  Distribution", 
subsencode(  "For  Given  X:",?T(x),''  Y:”,?T(y),"  When  L  s’1 
?T( er ) , "  L(R)  s" ,?T( ml) ) ,xlab="Rambda" ,ylab="" ,err=-1 ) 
lines(c(?T(r),?T(r),0),c(0,?T(yy),?T(yy))) 
arrows(?T(er) ,?T(ml) ,0,?T(ml)) 
arrows( ?T( er) ,?T( ml ) ,?T( er) , 0) 
mtext(sides2,  lines2,  outersT,  "MLE") 
rm(?T(x),?T(r),?T(y),?T(rr),?T(lr),?T(py),?T(px), 

?T(z) ,?T( zx) ,?T( zy ) ,?T(lx) ,?T(ly) ,?T(yy) ,?T(er) ,?T(ml) ) 


MACRO  mlegeo 

({ 

item  c(  "Sample  size  1", 

~  "Sample  size  2", 

"Go  to  Previous  Step") 
action_c( "?mlegeo1", 
"?mlegeo2", 

"?mled isc" ) 
menu (  item  ,  action) 
rm(  item,  action) 

)) 

END 
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MACRO  mlegeoK 

x/?PROMPT( Random  Sample  (  0  <=  X  <=  30  )  :  )/, 

p/?PR0MPT(Est  Imated  Probability  (  0  <=  p  <=  1  )  :  )/) 

# 

t  This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  Geometric  distribution. 

# 

({ 

par(mfrow=c( 1 , 1 ) ,  omasc(5,3,0,0)) 

?T(x)_x 

?T(p)_p 

?T(y)  ?mgeo(0:30,?T(p)) 

?T( iyT_?mgeo(?T(x) ,?T(p) ) 

plot(0:30,?T(y) ,  mains"PMF  for  Geometric  Distribution", 
sub=encode( "Given  X  :",?T(x),"  When  P  =",?T(p),"  PMF 
?T( iy) ) ,  type="h",  xlab="X-VALUE" ,  ylab="",cex=.5, 
yl im=c(0, 1 ) ,err=-1 ) 
points(  ?T(x)  ,?T( iy),mark=0) 
mtext(side=2,  line=2,  outer=T,  "PMF") 
mtext( s ide= 1 ,1 ine=1 ,cex=2,outer=TRUE, 

"If  you  want  to  see  the  MLE  for  P,  hit  Return 
when  GO?  appears.  If  not,  hit  the  Break  key") 
?T(pp)_seq(0, 1 ,len=101) 

?T(yy)_?mgeo(?T(x),?T(pp)) 

?T( ep)  1/(?T(x)+1 ) 

?T(ey)~?mgeo(?T(x) ,?T(ep) ) 
par(mfrow=c( 1 , 1 ) ,  oma=c( 0,3 ,0,0) ) 

plot( ?T( pp) ,?T(yy) , types "1" ,xlab="P-value" ,y lab="" , 

mains"Max  imum  Likelihood  for  Geometric  Distribution", 
subsencode( "Given  X  :",?T(x),"  When  P  s",?T(ep) ,"L(P) 
?T( ey) ) ,cexs .5, errs- 1 ) 

1  ines( c( ?T( p) ,?T(p),0),c(0,?T( iy),?T( iy))) 
arrows ( ?T( ep) ,?T(ey) ,0,?T(ey)) 
arrows(?T(ep) ,?T( ey ) ,?T( ep) ,0) 
mtext( s ides2,  lines2,  outersT,  "MLE") 

rm(?T(x) ,?T( p) ,?T(y) ,?T(  iy) ,?T(pp) ,?T(yy) ,?T(ep) ,?T(ey) ) 
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MACRO  mlegeo2( 

x/?PROMPT( Random  Sample  X  (  0  <= 
y/?PROMPT( Random  Sample  Y  (  0  <= 
p/?PR0MPT( Estimated  Probability 


<=  30  ) 

<=  30  ) 

0  <=  p  <=  1) 


#  This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  Geometric  d  iistribut  ion(  Sample  size  two). 

# 


par(mfrowsc(  1 , 1 ) ,  oma=c(5#0,0,0)) 

?T(x)_x 
?T(y)  y 
?T(p)~p 

?T(px7_max(0,?T(x)-5) 

?T(px)_seq(?T(px),?T(px)+10) 

?T(py)_max( 0,?T(y)-5) 

?T( py)_seq(?T(py),?T(py)+10) 

?T( zx)_?mgeo( ?T( px) ,?T(  p) ) 

?T(zx)_matrix(?T(zx) ,11,1) 

?T( zy)_?mgeo( ?T( py) ,?T( p) ) 

?T(zy)_matrix(?T(zy) ,1, 11) 

?T(z)_?T(zx)X«?T(zy) 

?T( z)  ?T(z)/max(?T(z) ) 

?T(  iz7_?mgeo(?T(x),?T(p))*?mgeo(?T(y),?T(p)) 
persp(?T(z) ) 

t  itle(main="PMF  for  Geometric  Distribution  (Sample  size  Two)", 
sub=encode("Y(L)  :  [ " ,?T( py ) [ 1 ] ,?T( py ) [ 1 1 ] , "] 

"X( R)  :  [",?T(px)[1],?T(px)[11],"]")) 
mtext(side=1 ,1  ine=1 ,cex=2,outer=TRUE, 

encode( "G iven  X  :",?T(x),"Y  :",?T(y),"  When  P  =",?T(p), 

"PMF  a" ,?T( iz))) 

mtext(s ideal ,1  ine=3,cexa2,outer=TRUE, 

"If  you  want  to  see  the  MLE  for  P,  hit  Return 
when  GO?  appears.  If  not,  hit  the  Break  key") 

?T(pp)_3eq(0, 1 ,lena101) 

?T(yy )_?mgeo(?T(x) ,?T( pp) )*?mgeo( ?T(y) ,?T( pp) ) 
?T(ep)_2/(?T(x)+?T(y)+2) 

?T(ey)_?mgeo(?T(x) ,?T( ep) )»?mgeo( ?T(y ) ,?T( ep) ) 

par(mfrowac( 1 , 1 ) ,  oma=c(0,3,0,0) ) 

plot(?T( pp) ,?T(yy) ,type="l" ,xlabr"P-value",ylab="", 

mains  "Max  imum  Likelihood  for  Geometric  Distribution", 
3ubaencode( "Given  X:",?T(x) ,"Y:",?T(y) ,"  When  P  s",?T(ep), 
"L( P)  =",?T(ey)),cex=.5,err=-1) 
lines(c(?T(p),?T(p),0),c(0,?T(  iz)  ,?T(  iz))) 
arrows (?T(ep) ,?T( ey) ,0,?T( ey) ) 
arrows( ?T( ep) ,?T(ey) ,?T(  ep)  ,0) 
mtext(sider2,  lines2,  outersT,  "MLE") 

rm( ?T( x) ,?T(y) ,?T( p) ,?T( px) ,?T(py) ,?T( z) ,?T( zx) ,?T( zy) , 

?T(  iz) ,?T( pp) ,?T(yy) ,?T(ep) ,?T(ey) ) 
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MACRO  mlerey 

({ 

item_c( "Sample  size  1", 
"Sample  size  2", 

"Go  to  Previous  Step") 
act  ion_c( "?mlerey 1 ", 
"?mlerey2", 

"?mled isc") 
menu (  item  ,  action) 
rm(  item,  action) 

}) 

END 


MACRO  mlerey 1 

({ 

item  c("1  Parameter  for  PI", 
—  "1  Parameter  for  P2", 

"2  Parameters", 

"Go  to  previous  step") 
action_c( "?mlerey1p1", 
"?mlerey1p2", 
"?mlerey1pb", 
"Tmlereylam") 
menu(  item  ,  action) 
rm(  item,  action) 

1) 

END 


MACRO  mlerey2 
(t 

item_c("1  Parameter  for  PI", 
"1  Parameter  for  P2", 
"2  Parameters", 

"Go  to  previous  3tep") 
action_c( "?mlerey2p1", 
"?mlerey2p2", 
"?mlerey2pb", 
"?mlereylam") 
menu (  item  ,  action) 
rm(  item,  action) 


MACRO  mlereylpK 

x/?PROMPT( Random  Sample  X  (0,1  or  2)  :)/, 

p2/?PR0MPT( Given  P2  (  0  <=  P2  <=  1  )  :)/, 

p1/?PR0MPT( Estimated  PI  (  0  <=  PI  <=  1-P2  )  :)/) 

# 

#  This  Is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  REyLmab  d  istr  ibut  ion(  For  one  sample  with  known  P2). 

# 

({ 

par(mfrow=c( 1 , 1 ) ,  oma=c(5,2,0,0) ) 

?T( x)  x 
?T(p27_p2 
?T(p1 )_p1 

if(?T(p1)+?T(p2)>1)  fatal("P1  +  P2  can't  be  greater  than  1") 
?T(xx)_c(0, 1 ,2) 

?T(y)  ?mreylam( ?T(xx) ,?T( p 1 ) ,?T( p2) ) 

?T(  iyT_? mreylam(?T(x) ,?T( pi ) ,?T( p2) ) 

?T( my)_max( ?T{y) ) 

plot(?T(xx) ,?T(y) , types "h" ,yl  imsc(0, 1 . 1*?T(my) ) , 
mains"PMF  for  ReyLamb  Distribution", 
sub=encode( "Given  X:",?T(x),"  P2:",?T(p2), 

"When  PI  ="  ,?T(  pi ) ,  "PMF  s",?T(iy)), 
xl imsc(-1 ,3) ,cex= .5 ,err=-1 ,xlabs"X-Value",ylab=”") 
points(?T(x)  ,?T(  iy)  ,marks0) 
arrows(-.2,?T( iy),-1,?T( iy)) 
mtext(sides2,  line=1,  outersT,  "PMF") 
mtext( s idesl ,1 inesl ,cexs2,outer=TRUE, 

"If  you  want  to  see  the  MLE  for  PI,  hit  Return 
when  GO?  appears.  If  not,  hit  the  Break  key") 

?T(pp1)_seq(0,( 1-?T(p2) ) ,len=51) 

?T( 1)  ?mreylam(?T(x) ,?T( ppl ) ,?T(p2) ) 

?T( ep7_ifelse( ?T( x) ! =2 , ( 1 -?T( p2) ) ,0) 

?T(ml)_?mreylam(?T(x) ,?T(ep) ,?T(p2)) 
par(mfrowsc( 1 , 1 ) ,  oma=c(5,2,0,0) ) 

plot(?T(pp1 ) ,?T( 1) , type="l" ,yl  im=c(0, 1 . 1»?T(ml) ) ,xl im=c( -.2, 1 ) 
mains"Max imum  Likelihood  for  ReyLamb  Distribution", 
xlabs"P1-value",ylabs"",cex=.5,errs-i) 
mtext( s ides2,  linesl,  outersT,  "MLE") 
if(?T(x)!=1)  { 

1 ines( c(?T(p1),?T(p1),-.2),c(0,?T(  iy),?T(  iy))) 

arrows(?T(ep) ,?T(ml)/5,?T(ep) ,0) 

arrows(-.05 ,?T(ml) ,-.2,?T(ml) ) 

mtext( s  idesl ,1 inesl ,cexs2,outersTRUE, 

encode("For  Given  X:",?T(x),"  P2 : " ,?T( p2) , "  When  PI  s", 

?T( ep) , "  L( PI )  =",?T(ml) ))  } 

if(?T(x)ss1)  { 

mtext(sides1 , linesl ,cexs2,outersTRUE, 

encode( "G iven  X:",?T(x),"  P2 ,?T( p2) , "  L(P1)  s", 

?T(p2),"  for  all  possible  PI"))  } 

rm(?T(x),?T(p1),?T(p2),?T(xx),?T(y),?T( iy ) ,?T( ppl ) ,?T( 1) , 
?T(ml) ,?T(ep) ) 


MACRO  mlerey1p2( 

x/?PROMPT( Random  Sample  X  (0,1  or  2)  :)/, 

p1/?PR0MPT( Given  PI  (  0  <=  PI  <=  1  )  :)/, 

p2/?PR0MPT( Estimated  P2  (  0  <=  P2  <=  1-PI  )  :)/) 

# 

#  This  Is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  ReyLamb  d istr ibut ion(  For  one  sample  with  known  PI). 

# 

({ 

par(mfrow=c( 1 , 1 ) ,  oma=c(5,2,0,0) ) 

?T(x)  x 
?T(pl7_p1 
?T(p2)  p2 

if( ?T( pi )+?T(p2)> 1 )  fatal(  "PI  P2  can't  be  greater  than  1") 
?T(xx)_c(0, 1 ,2) 

?T(y)  ?mreylam(?T(xx) ,?T(p1 ) ,?T(p2) ) 

?T(  iyT  ?mreylam( ?T(x) ,?T( p 1 ) , ?T(p2) ) 

?T(my)~max(?T(y) ) 

plot(?T(xx) ,?T(y) , types "h" ,yl  imsc( 0, 1 . 1*?T(my ) ) , 
mains "PMF  for  ReyLamb  Distribution", 
subsencode( "Given  X:",?T(x),"  P1:",?T(p1), 

"When  P2s",?T(p2) , "PMF  s",?T(iy)), 

xl im=c( -1 ,3) , cexs.5, errs- 1 ,xlabs"X-Value" ,y lab="") 


£ 

i 


points(?T(x)  ,?T(  iy)  .marksO) 
arrows(-.2,?T(  iy) ,-1 ,?T( iy) ) 
mtext(sides2,  linesl,  outersT,  "PMF") 
mtext(sides1 , linesl ,cexs2 ,outersTRUE, 

"If  you  want  to  see  the  MLE  for  P2,  hit  Return 
when  GO?  appears.  If  not,  hit  the  Break  key") 

?T(pp2)_seq(0,( 1-?T(p1 ) ) ,len=51 ) 

?T( 1)  ?mreylam(?T(x) ,?T(p1 ) ,?T(pp2) ) 

?T(ep7_ifelse(?T(x) !s2,(  1-?T(p1)) ,0) 

?  T( ml )_?mrey 1 am(  ? T(  x ) ,  ? T(  p  1 ) ,  ? T(  ep ) ) 
par(mfrowsc( 1,1),  oraasc( 5 ,2 ,0,0) ) 

plot(?T(pp2) ,?T(1) , types "l",yl  imsc( 0, 1 . 1*?T( ml) ) ,xl  imsc( -.2, 1 ) , 
mains"Max  imum  Likelihood  for  ReyLamb  Distribution", 
xlabs"P2-value" ,ylabs"" ,cexs .5 , err=- 1 ) 
mtext( sides2,  linesl,  outersT,  "MLE") 
if(?T(x)!s0)  { 

lines(c(?T(p2),?T(p2),-.2),c(0,?T(  iy),?T( iy))) 

arrows( ?T( ep ) , ?T( ml ) /5 , ?T( ep ) , 0) 

arrows( -.05 ,?T( ml ) , -.2 ,?T( ml) ) 

mtext( s  ides  1 , 1  ines 1 , cexs2 , outers  TRUE, 

encode( "Given  X:",?T(x),"  PI : " ,?T( pi),"  When  P2  s", 

?T( ep) , "  L(P2)  =" ,?T( ml ) ) )  } 

if(?T(x)s  =  0)  { 

mtext( s  ides  1 ,1  inesl ,cexs2 .outer sTRUE, 

encode(  "Given  X:",?T(x),"  PI : " ,?T( pi),"  L(P2)  s", 

?T(p1),"  for  all  possible  P2"))  } 

rm( ?T( x) ,?T( p 1 ) ,?T(p2) , ?T( xx ) ,?T(y) ,?T(  iy) ,?T(pp2) ,?T(1) , 

?T(ml) ,?T( ep) ) 
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MACRO  mlerey1pb( 

x/?PROMPT( Random  Sample  X  (0,1  or  2)  :)/, 

p1/?PR0MPT( Estimated  PI  (  0  <=  PI  <=  1  )  :)/, 

p2/?PR0MPT( Estimated  P2  (  0  <=  P2  <=  1-PI  )  :)/) 

# 

#  This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  ReyLamb  d istr ibut ion(  For  one  sample  with  both  unknown  PI  &  P2) 

# 

(( 

par(mfrow=c( 1 , 1 ) ,  oma=c(5,2,0,0) ) 

?T(x)  x 

?T(pl7_p1 

?T(p2)“p2 

if(?T(p1)+?T(p2)>1)  fatal("P1  +  P2  can't  be  greater  than  1") 
?T(xx)_c( 0, 1 ,2) 

?T(y)  ?mreylam( ?T(xx) ,?T(p1),?T(p2)) 

?T( iy7_?  mrey 1 am( ?  T ( x ) ,?T(p1 ) ,?T(p2) ) 

?T(my)_max(?T(y) ) 

plot(?T(xx) ,?T(y) , types "h" ,yl im=c( 0, 1 . 1*?T(my) ) , 
mains  "PMF  for  ReyLamb  D  istr  ibut  ion", 
subsencode( "For  Given  X:",?T(x),"  When  P1:",?T(p1), 

"  P2  =" ,?T( p2) , "PMF  s" ,?T(  iy ) ) , 

xl im=c( -1 ,3) ,cex=.5,err=-1 ,xlabs"X-Value",ylabs"") 
points(?T(x)  ,?T(  iy)  ,mark=0) 
arrows( -.2,?T(  iy),-1,?T(  iy)) 
mtext( s ides2,  linesl,  outersT,  "PMF") 
mtext( s ides  1 , 1  ine= 1 ,cex=2,outersTRUE, 

"If  you  want  to  see  the  MLE  for  PI  and  P2,  hit  Return 
when  GO?  appears.  If  not,  hit  the  Break  key") 

?T( ppl )_seq(0, 1 , lens  1 1 ) 

?T(pp2)_seq(0, 1,lens1 1) 

?T(ppo)_rep(?T(pp1),rep( 11,11)) 

?T(ppt)_rep(?T(pp2) ,11) 

?T( 1  )_?mreylam( ?T( x) ,?T( ppo) ,?T( ppt) ) 

?T( 1)  matr ix( ?T( 1) , 1 1 , 1 1 ,byrow=TRUE) 

?T( l)Trow( ?T( 1) )+col(?T( 1) )  >  1 2  ]_0 
?T(ml)_max(?T( 1) ) 

?T(mr)_?row(?T( 1) ,max) 

?T(mc)  ?col(?T( 1) ,max) 

?T(r)  Tl :len(?T(mr)))[?T(mr)ss?T(ml)] 

?T( c)  ( 1 :len(?T(mc)))[?T(mc)==?T(ml)] 

?T( el7_?T( ppl ) [?T( r) ] 

?T(e2)_?T(pp2)[?T(c)] 

?T(l)_?T(l)/?T(ml) 

par(mfrow=c( 1 , 1 ) ,  omasc(5, 0,0,0) ) 

persp( ?T( 1) ) 

t  itle(  mains  "Max  imum  Likelihood  for  ReyLamb  Distribution", 
subs"P2( left)  :  [  0  1  ]  Pl(right)  :  [  0  1  ]") 
mtext( s  idesl ,1 inesl ,outersTRUE, 

encode( "Given  X:",?T(x),"  When  PI  s",?T(e1),"  P2  s", 

?T( e2) ,"  L( PI ,P2)  s" ,?T( ml ) ) ) 

rm(?T(x) ,?T( pi ) ,?T( p2) ,?T( xx) ,?T(y ) ,?T(  iy) ,?T(my) ,?T( 1) ,  ?T(ml), 


MACRO  mlerey2p1( 

x/?PROMPT( Random  Sample  X  (0,1  or  2)  :)/, 

y/?PR0MPT( Random  Sample  Y  (0,1  or  2)  :)/, 

p2/?PR0MPT( Given  P2  (  0  <=  P 2  <=  1  )  :)/, 

p1/?PR0MPT( Estimated  PI  (  0  <=  PI  <=  1-P2  )  :)/) 

# 

#  This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  ReyLamb  d  istr  ibut  ion(  For  two  sample  with  known  P2). 

# 

({ 

par(mfrow=c( 1 , 1 ) ,  oma=c(5,2,0,0) ) 

?T(x)_x 
?T(y)  y 
?T(p2l_p2 
?T(p1  )__p1 

if(?T(p1 )+?T(p2)>1 )  fatal("P1  +  P2  can't  be  greater  than  1") 

?T( xx)_c( 0, 1 ,2) 

?T(yy)_?T(xx) 

?T(xx)_rep(?T(xx) ,rep(3#3)) 

?T(yy)_rep(?T(yy) ,3) 

?T( z)  ?mreylam(?T(xx) ,?T( pi ) ,?T(p2) )*?mreylam(?T(yy ) ,?T( pi ) ,?T(p2) ) 
?T( lzT_?mreylam(?T(x) ,?T( pi ) ,?T(p2) )*?mreylam(?T(y ) ,?T(p1 ) ,?T( p2) ) 
plot(?T(xx) ,?T(yy) , types "n",xl im=c(-1 ,3) ,yl imsc(-1 ,3) , 

errs-1,xlabs"X-Value",ylabs"") 
points(?T(x) ,?T(y) , marks  1 ) 

?T(  k)_1 

for  (  i  in  0:2  )  { 
for(  j  in  0:2  )  { 

1  ines(  c(  i,  i)  ,c(  j,  j+?T(z)  [?T(k)  ] ) ) 

?T(k)_?T(k)+1 

} 

} 

t  itle(  mains  "PMF  for  ReyLamb  D  Istr  ibut  ion" , 

subsencode( "Given  X:",?T(x),"  Y:",?T(y),"  P2:",?T(p2), 

"When  PI  s",?T(p1) ,"PMF  s",?T(lz))) 
mtext( s ldes2,  linesl,  outersT,  "Y  Values  /  PMF") 
mtext(sides1 ,1 Inesl ,cexs2,outersTRUE, 

"If  you  want  to  see  the  MLE  for  PI,  hit  Return 
when  GO?  appears.  If  not,  hit  the  Break  key") 

?T(pp)_seq(0,( 1-?T(p2)),len=51) 

?T( l)_?mreylam(?T( x) ,?T( pp) ,?T( p2) )*?mreylam( ?T(y) ,?T( pp) ,?T( p2) ) 

if(  (?T(x)+?T(y) )  <  2  )  ?T(ep)  1-?T(p2) 

if(  (?T(x)+?T(y))  s=  2  )  ?T( epT_( 1-?T( p2) )/2 

if(  (?T(x)+?T(y))  >  2  )  ?T(ep)_0 

?T(ml)_?mreylam(?T(x) ,?T( ep) ,?T( p2) )*?mreylam(?T(y) ,?T(ep) ,?T(p2) ) 
par(mfrowsc( 1 , 1 ) ,  omasc(5,2,0,0)) 

plot(?T(pp),?T(l),type="l",yllm=c(0,1.1*?T(ml)),xlim=c(-.2,1), 
malns"Max  imum  Likelihood  for  ReyLamb  D  Istr  ibut  ion" , 
xlabs "pi -value" ,ylabs"" ,cexs.5 ,errs-1 ) 
mtext( s ides2,  linesl,  outersT,  "MLE") 
if(?T(x)!s1  i  ?T(y)!s1)  { 

1  lnes( c(?T(p1),?T(p1),-.2),c(0,?T( lz),?T( iz))) 


arrows( ?T( ep) ,?T(ml)/5,?T(ep) ,0) 
arrows(-.05,?T(ml) ,-.2,?T(ml) ) 
mtext(side=1 ,1  ine= 1 ,cex=2 ,outer=TRUE, 
encode( "For  Given  X:",?T(x),"  X:",?T(y),B  P2:",?T(p2) , 
"  When  PI  =  ",  ?T( ep) , "  L(P1)  =",?T(ml))) 


MACRO  mlerey2p2( 

x/?PROMPT( Random  Sample  X  (0,1  or  2)  :)/, 

y/?PR0MPT( Random  Sample  Y  (0,1  or  2)  :)/, 

p1/?PR0MPT( Given  PI  (  0  <=  PI  <=  1  )  :)/, 

p2/?PR0MPT( Estimated  P2  (  0  <=  P2  <=  1-PI  )  :)/) 

f 

#  This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  ReyLamb  d  istr  ibut  ion(  For  two  sample  with  known  PI). 

# 


par(mfrow=c( 1 , 1 ) ,  oma=c(5, 1 ,0,0) ) 

?T(x)_x 
?T(y)  y 
?T(plT_p1 
?T(p2)~p2 

if(?T(p1 )+?T( p2)> 1 )  fatal("P1  +  P2  can't  be  greater  than  1") 
?T(xx)_c(0, 1 ,2) 

?T(yy)_?T(xx) 

?T(xx)_rep( ?T( xx) ,rep(  3,3) ) 

?T(yy)_rep(?T(yy) ,3) 

?T( z)  ?mreylam( ?T( xx) ,?T( pi ) ,?T(p2) )*?mreylam( ?T(yy) ,?T( pi ) ,?T( p2) ) 
?T(  izT_?mreylam( ?T( x) ,?T( pi ) ,?T( p2) )«?mreylam( ?T(y ) ,?T(p1 ) ,?T(p2) ) 
plot( ?T( xx) ,?T(yy) ,type="n",xlim=c(-1 ,3) ,yl im=c(-1 ,3) , 
err=-1 ,xlabz"X-Value" ,ylabz"") 
points(?T(x) ,?T(y) ,mark=1 ) 

?T(k)_1 

for  (  i  in  0:2  )  { 
for(  j  in  0:2  )  l 

1 ines( c(  i, i)  ,c( j , j+?T( z) [?T( k) ] ) ) 

?T( k)_?T( k)+1 

} 

} 

t itle(mainr"PMF  for  ReyLamb  Distribution", 

sub=encode( "For  Given  X:",?T(x),"  Y:",?T(y),"  P1:",?T(p1), 

"When  P2  =" ,?T( p2 ) , "PMF  =",?T(iz))) 
mtext( s ide=2,  line=1,  outer=T,  "Y  Value  /  PMF") 
mtext( s  ide=1 ,1 ine= 1 ,cex=2 , outer =TRUE, 

"If  you  want  to  see  the  MLE  for  P2,  hit  Return 
when  GO?  appears.  If  not,  hit  the  Break  key") 

?T(pp)_seq(0,( 1-?T(p1)),len=51) 

?T( l)_?mreylam(?T( x) ,?T( pi ) ,?T( pp) )*?mreylam( ?T(y ) ,?T( pi ) ,?T(pp) ) 
if(  (?T(x)+?T(y))==2  I  (?T(x)==1  &  ?T(y)==1)  )  ?T( ep)_1 -?T( pi ) 
if(  (?T(x)+?T(y)  )==2  i  (?T(x)+?T(y)==i1)  )  ?T(ep)_0 
if(  (?T(x)+?T(y) )==3  )  ?T(ep)_( 1-?T(p1))/2 

?T(ml)_?mreylam(?T(x) ,?T(p1 ) ,?T( ep) )*?mreylam(?T(y) ,?T( pi ) ,?T( ep) ) 
par(mfrow=c( 1 , 1 ) ,  oma=c(5,2,0,0)) 

plot(?T(pp) ,?T( 1) , type= "l",yl  im=c( 0, 1 . 1*?T(ml) ) ,xl imrc( -.2, 1 ) , 
mainr"Max imum  Likelihood  for  ReyLamb  Distribution", 
xlabr"P2-value" ,ylabr "" ,cex= .5 ,errr-1 ) 
mtext(sidez2,  linerl,  outerrT,  "PMF") 
lf(?T(x)!=0  i  ?T(y)!=0)  { 

1  ines(c(?T(p2) ,?T(p2),-.2),c(0,?T( iz),?T( iz))) 
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MACRO  mlerey2pb( 

x/?PROMPT( Random  Sample  X  (0,1  or  2)  :)/, 

y/?PR0MPT( Random  Sample  Y  (0,1  or  2)  :)/, 

p1/?PR0M?T( Estimated  PI  (  0  <=  PI  <=  1  )  :)/, 

p2/?PR0MPT( Estimated  P2  (  0  <=  P2  <=  1-PI  )  :)/) 

# 

#  This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  ReyLamb  d istr ibut ion(  For  two  sample  with  both  unknown  PI  4  P2). 

# 

({ 

par(mfrow=c( 1 , 1 ) ,  oma=c(5,2,0,0) ) 

?T(x)_x 
?T(y)  y 
?T(pl7_p1 
?T(p2)_p2 

if(?T(p1 )+?T(p2)>1)  fatal("P1  +  P2  can't  be  greater  than  1") 
?T(xx)_c(0, 1 ,2) 

?T(yy)_?T(xx) 

?T( xx)_rep( ?T( xx) , rep(  3,3)) 

?T(yy)_rep(?T(yy),3) 

?T( z)  ?mreylam( ?T( xx) ,?T( pi ) ,?T(p2) )*?mreylam(?T(yy ) ,?T( pi ) ,?T( p2) ) 
?T(  izT_?mreylam( ?T(x) ,?T(p1 ) ,?T(p2) )*?mreylam(?T(y) ,?T( pi ) ,?T( p2) ) 
plot(?T(xx)  ,?T(yy)  ,type="n",xl  im=c( -1,3)  ,yl  im=c(-1 ,3) , 
err=-1  ,xlab="X-Value"  ^labs"") 
points(?T(x),?T(y) ,mark=1) 

?T(k)_1 

for  Ci  in  0:2  )  A 
for (  j  in  0:2  )  { 

1  ines(  c(  1,  i)  ,c(  j ,  j+?T(  z)  [?T(  k)  ] ) ) 

?T(k)  ?T( k)+1 
) 

} 

t  itle(main="PMF  for  ReyLamb  Distribution", 

sub=encode( "For  Given  X:",?T(x),"  Y:",?T(y),"  When  PI  =", 

?T( pi ) ,  "  P2  =",?T(p2) ,"PMF  s»,?T(iz))) 
mtext(side=2,  line=1,  outer=T,  "Y  Value  /  PMF") 
mtext( s  ide=1 ,1 ine=1 ,cex=2,outersTRUE, 

"If  you  want  to  see  the  MLE  for  PI  4  P2,  hit  Return 
when  GO?  appears.  If  not,  hit  the  Break  key") 

?T( ppl )_seq( 0, 1 ,len= 1 1 ) 

?T( pp2 )_seq( 0,1, len= 1 1 ) 

?T(pp1)_rep(?T(pp1),rep(  11,11)) 

?T(pp2)  rep(?T( pp2) ,11) 

?T( l)_?mreylam( ?T(x) ,?T( ppl ) ,?T(  pp2) )  • 

?mreylam( ?T(y ) ,?T( ppl ) ,?T( pp2) ) 

?T( 1)  matr ix( ?T( 1) , 1 1 , 1 1 ,byrow=TRUE) 

?T( l)Trow(?T( 1) )+col(?T( 1) )  >  12]_0 

if(  ( ?T(x)+?T( y ) ) ==0  )  ?T(ep)_c( 1,0) 

if(  (?T(x)+?T(y) )==1  )  ?T(ep)_c(.5,.5) 

if(  ( ?T(x) == 1 )  4  ( ?T( y)== 1 )  )  ?T(ep)  c(0,1) 

if(  (?T(x)+?T(y) )==2  4  ?T(x)!=?T(y)  7  ?T(ep)_c( .5,0) 

if(  ( ?T(x)+?T(y) ) ==3  )  ?T(ep)  c(0,.5) 


if(  (?T(x)+?T(y))==4  )  ?T(ep)  c(0,0) 

?T(e 1 ) _ ?  T( ep) [  1  ] 

?T(e2)“?T(ep)[2] 

?T(ml)  ?mreylam(?T(x) ,?T(e1 ) ,?T(e2) )*?mreylam(?T(y) ,?T( el ) ,?T( e2) ) 
?T( 1)_?T( l)/max(?T( 1) ) 
par(mfrow=c( 1 , 1 ) ,  oma=c(5, 0,0,0)) 
persp( ?T( 1) ) 

t  itle(main="Max  imum  Likelihood  for  ReyLamb  Distribution", 
sub="P2( left)  :  [  0  1  ]  Pl(right)  :  [  0  1  ]") 
mtext(side=1 , 1  ine=  1  ,outer=TRUE, 

encode(  "For  Given  X:",?T(x) Y:",?T(y)f"  When  PI  =%?T(e1), 

"  P2  =" ,?T( e2) , "  L(P1,P2)  =  '*,?T(ml))) 
rm( ?T( x) ,?T(y) ,?T(p1 ) ,?T(p2) ,?T(xx) ,?T(yy) ,?T( iz) ,?T(  z) ,?T( k) , 

?T( ppl ) ,?T(  pp2) ,?T( 1) ,?T( ep) ,?T(e1 ) ,?T(e2) ,?T( ml) ) 


MACRO  mledunif 

({ 

item  c("1  Parameter  for  Lower  bound", 
~  "1  Parameter  for  Upper  bound", 

"2  Parameters", 

"Go  to  previous  step") 
act ion_c( "?mledun ifl" , 

"?mledun ifu" , 

"?mledun ifb", 

"?mled  isc") 
menu (  item  ,  action) 
rm(  item,  action) 
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MACRO  mledun if l(x/?PROMPT( Random  Sample  X  (  Any  Integer  )  :)/, 
y/?PR0MPT( Random  Sample  Y  (  Any  Integer  )  :)/, 
u/?PR0MPT( Given  Upper  Bound  :)/, 

1/?PR0MPT( Est imated  Lower  Bound  :)/) 

# 

#  This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  D  iscrete  Un iform  d istr ibut ion  w  ith  known  upper  bound . 

# 

({ 

par(mfrow=c( 1 , 1 ) ,  omasc(7, 0,0,0) ) 

?T(x)_x 
?T(y)  y 

?T( rsT_c( ?T(x) ,?T(y)) 

?T(u)_u 

?T(1)~1 

?T( bsT_max(?T( rs) ) 

?T(ss)_min(?T(rs) ) 

# 

#  If  U  <  (X  or  Y),  U  can  not  be  Upper  bound  for  uniform  distribution. 

# 

if(  ?T(u)  <  ?T( bs)  )  { 

fatal( "Given  Upper  Bound  can’t  be  Smaller  than  any  one  of 
given  two  samples")  } 
if (  ?T( u)  >=  ?T( bs)  )  { 

?T( mx)  max( ?T( bs) , ?T( u) )  +  2 
?T(mn)‘_min(?T(ss),?T(l))  -  2 
?T( px)  seq( ?T(mx) ,?T(mn) ) 

?T(pmfT_1/(?T(u)-?T(l)+1) 

#  PMF  for  discrete  uniform  distribution  is; 

#  pmf  s  1/(upper  -  lower  +1) 

?T(px)_ifelse(  (?T(px)<=?T(u)  &  ?T( px) >  =  ?T( 1)  ),?T(pmf),0) 

?T( px)_matr ix( ?T( px) ,ncol= 1 ) 

?T(py)  t( ?T( px) ) 

?T(z)J?T(px)**?T(py) 

#  Joint  pmf  for  independent  uniform  distribution  can  be  computed 
//  by  the  matrix  form. 

?T(pmf)_?T(pmf)''2 
?T( z)  ?T(z)/?T(pmf) 
per3pT?T(z) ) 

?T(pmf)_ifelse(?T(l)<=?T(ss)  &  ?T(u)>=?T(bs) ,  ?T(pmf),  0) 
t  itle(  main=  "PMF  for  Discrete  Uniform  Distribution", 

subsencode( ”Y( left)  s  X(right)  :  C",?T(mn) ,?T(mx) ,"]") ) 
mtext( s  ides  1 , 1 ines 1 , cexs2 , outers TRUE, 

encode( "Given  Samples", ?T( ss) ,?T(bs) , "When  Boundary  s 
?T( 1 ) ,?T( u) , " )  PMF  s",?T( pmf))) 
mtext( s  idesl , 1 ines3,cexs2 ,outersTRUE, 

"If  you  want  to  see  the  MLE  for  Lower  Bound,  hit  Return 
when  GO?  appears.  If  not,  hit  the  Break  key") 

?T( b)_seq( ?T( ss) , (?T( ss) -8) ) 
i!  Select  the  range  of  lower  bound 
?T( sb)  min(?T(b)) 

?T( bb)~max(?T( b) ) 


-a.  *  '~i  -v  -j 
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?T(pmf)_( 1/(abs(?T(u)-?T(b))+1))  2 
?T(ml)_max(?T(pmf) ) 

#  MLE  can  be  determined  when  maximum  praf  is  found. 

?T(mb)_?T{ b) C ( 1 :len(?T( pmf ) ) ) [?T( pmf ) ==?T(ml) ] ] 

#  MLE  Is  located  in  the  same  position  in  the  vector  as  the  max  pmf. 

par(mfrow=c( 1 , 1 ) ,  oma=c(5, 3.0,0)) 

plot(?T( b) ,?T(pmf) ,type="h",yl im=c( 0, 1 . 1*?T(ml) ) , 

xl  im=c(?T(sb)-1 ,?T(bb)+1 ) ,xlab= "Parameter ",ylab="", 

main="Max  imum  Likelihood  for  Discrete  Uniform  Distribution", 
sub=encode( "Given  Sample^", ?T( ss) ,?T(bs) , "  Upper  Bound 
?T(u)) ,cex=.5,err=-1) 
mtext( s ide=2,  line=2,  outer=T,  "PMF") 
mtext(s ide=1 ,1 ine=1 ,outer=TRUE, 

encode("When  Lower  Bound  =",?T(mb),"  L(P)  =",?T(ml))) 
arrows(?T(sb)+(?T(sb)-?T(sb))/10,?T(ml) ,?T( sb)-1 ,?T(ml) ) 
rm(?T(x) ,?T(y ) ,?T( rs) ,?T( 1) ,?T(u) ,?T( bs) ,?T( ss) ,?T(mx) ,?T(  b) , 

?T(mn) ,?T( px) ,?T(pmf) ,?T(py) ,?T(z) ,?T(sb) ,?T(bb) ,?T(ml) ,?T(mb)) 


V 


MACRO  mledun ifu( 

x/?PROMPT( Random  Sample  X  (  Any  Integer  )  :)/, 
y/?PROMPT( Random  Sample  Y  (  Any  Integer  )  :)/, 

1/?PR0MPT( Given  Lower  Bound  :)/, 

u/?PROMPT( Estimated  Upper  Bound  :)/) 

# 

#  This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  Discrete  Uniform  distribution  with  known  lower  bound. 

# 


par(mfrow=c( 1 , 1 ) ,  oma=c(7, 0,0,0)) 

?T(x)_x 

?T(y)  y 

?T(rsJ_c(?T(x),?T(y)) 

?T(1)_1 
?T(  u)  u 

?T( bsT_max(?T( rs) ) 

?T( ss)  min(?T(rs) ) 


If  L  >  (X  or  I),  L  can  not  be  lower  bound  for  uniform  distribution. 


if(  ?T(  1)  >  ?T( ss)  )  { 

fatal( "Given  Lower  Bound  can’t  be  Greater  than  any  one  of 
given  two  samples")  } 
if(  ?T(  1)  <=  ?T( ss)  )  { 

?T( mx)_max( ?T(  bs) ,?T(u))  +  2 
?T(mn)_min(  ?T( ss) ,?T( 1) )  -  2 
?T( px)  seq(?T(mx) ,?T(mn) ) 

?T( pmfT_1/( ?T( u) -?T( 1)+1 ) 

PMF  for  discrete  uniform  distribution  is; 
pmf  =  1/(upper  -  lower  +1) 

?T( px)_ifelse(  (?T(px)<=?T(u)  &  ?T( px) >=?T( 1)  ),?T(pmf),0) 
?T(px)_matr ix(?T(px) ,ncol=1 ) 

?T(py)_t(?T( px) ) 

?T(z)_?T(px)*»?T(py) 

Joint  pmf  for  independent  uniform  distribution  can  be  computed 
by  the  matrix  form. 

?T(pmf )  ?T( pmf)'>2 
?T( z)  ?T(z)/?T(pmf) 
perspT?T(z) ) 

?T( pmf  )_ifelse(  ?T( 1)<=?T( ss)  &  ?T( u) >=?T( bs) ,  ?T(pmf),  0) 
t it le( main= "PMF  for  Discrete  Uniform  Distribution", 

subsencodeC "Y( left)  s  X(right)  :  [",?T(mn) ,?T(mx) ,"]")) 
mtext( sides  1 ,1 ines 1 ,cexs2, outers TRUE, 

encode( "Given  Samples", ?T( ss) ,?T(bs) , "When  Boundary  s  (", 
?T(1) ,?T(u) ,")  PMF  =" ,?T( pmf) ) ) 
mtext( s ides  t , 1 ines3,cexs2 , outer sTRUE, 

"If  you  want  to  see  the  MLE  for  Upper  Bound,  hit  Return 
when  GO?  appears.  If  not,  hit  the  Break  key") 

?T( b)_seq( ?T( bs) ,  ( ?T(  bs) +8 ) ) 

Select  the  range  of  Upper  Bound 
?T(  sb)  m in( ?T(  b) ) 


r,  «•  /.  ' .  .  .  •• 


\  \  % 


?T(bb)  max(?T(b)) 

?T(pmf7_(  1/(abs(?T(l)-?T(b))  +  1))'>2 
?T(ml)_max( ?T( pmf ) ) 

#  MLE  can  be  determined  when  maximum  pmf  is  found. 

?T( mb)_?T(b) [ ( 1 : len( ?T( pmf) ) ) [?T( pmf) ==?T( ml) ] ] 

#  MLE  is  located  in  the  same  position  in  the  vector  as  the  max  pmf. 

par(mfrow=c(  1 , 1 ) ,  oma=c(5,3.0,0)) 

plot(?T( b) ,?T( pmf) , typer "h",yl im=c( 0, 1 . 1*?T(ml) ) , 

xl  im=c(?T( sb)-1 ,?T(bb)+1 ) ,xlab="Parameter",ylab="", 
main="Max  imum  Likelihood  for  Discrete  Uniform  Distribution", 
sub=encode( "For  Given  Samples", ?T( ss) ,?T( bs) ,"  Lower  Bound 
?T( 1) ) ,cex= .5,err=-1 ) 
mtext( s ide=2,  1  ine=1 ,  outer=T,  "PMF") 
mtext( s  ide= 1 , 1 ine= 1 , outer=TRUE, 

encode("When  Upper  Bound  =",?T(mb),"  L(P)  =",?T(ml))) 
arrows(?T( sb)+( ?T( sb)-?T( sb) ) / 10,?T(ml) ,?T( sb) -1 ,?T(ml)) 
rm(?T(  x) ,?T(y) ,?T( rs) ,?T( 1) ,?T(u) ,?T( bs) ,?T(ss) ,?T(mx) ,?T(b) , 

?T(mn) ,?T( px) ,?T( pmf) ,?T( py ) ,?T( z) ,?T( sb) ,?T( bb) ,?T( ml) ,?T( mb) ) 

} 
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MACRO  mledunifb( 

x/?PROMPT( Random  Sample  X  (  Any  Integer  )  :)/, 
y/?PROMPT( Random  Sample  Y  (  Any  Integer  )  :)/, 

1/?PR0MPT( Est imated  Lower  Bound  :)/, 

u/?PR0MPT( Est imated  Upper  Bound  :)/) 

# 

#  This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  Discrete  Uniform  distribution  with  unknown  parameter. 

# 

({ 

par(mfrowsc( 1 , 1 ) ,  oma=c(7*0,0,Q)) 

?T(x)_x 
?T(y)  y 

?T(rs7_c(?T(x) ,?T(y) ) 

?T(1)_I 
?T(u)  u 

?T(  bs7__max(  ?T(  rs) ) 

?T( ss)  min(?T(rs) ) 

?T(mx)~max(?T(bs) ,?T(u) )  +  2 
?T(  mn)~m  in(  ?T(  ss) ,?T( 1) )  -  2 
?T(px)~seq(?T(mx) ,?T(mn) ) 

?T(pmf7_1/(?T(u)-?T(l)+1) 

#  PMF  for  discrete  uniform  distribution  is; 

#  pmf  =  1/( upper  -  lower  +1) 

?T(px)_ifelse(  (?T(px)<=?T(u)  &  ?T( px) >=?T( 1)  ),?T(pmf),0) 
?T( px)  matr ix(?T(px) ,ncol=1 ) 

?T( py)_t( ?T(px) ) 

?T(z)_?T(px)**?T(py) 

#  Joint  pmf  for  independent  uniform  distribution  can  be  computed 

#  by  the  matrix  form. 

?T(pmf)_?T(pmf)“2 
?T( z)  ?T( z)/?T(pmf ) 
perspT?T(z) ) 

?T( pmf )_ifelse(?T( 1)<=?T( ss)  &  ?T(u)>=?T(bs) ,  ?T(pmf),  0) 
t  itle(  main=  "PMF  for  Discrete  Uniform  Distribution", 

subsencode( "Y( left)  s  X(right)  :  [ " ,?T( mn) ,?T(mx) , "] ") ) 
mtext( s ides  1 ,1 inesl ,cexs2,outersTRUE, 

encode( "Given  Samples" ,?T( ss) ,?T( bs) , "When  Boundary  s  (", 
?T( 1) ,?T(u) , " )  PMF  =",?T(pmf) ) ) 
mtext(sides1 ,1  ines3,cexs2 ,outersTRUE, 

"If  you  want  to  see  the  MLE  for  Upper/Lower  Bound, 

hit  Return  when  GO?  appears.  If  not,  hit  the  Break  key") 

?T( u)_seq( ?T( bs) ,?T( bs)+5) 

?T( l)_seq( ?T( ss)-5 ,?T( ss) ) 

#  Select  The  range  of  Upper  and  Lower  Bound 

?T(u)_rep(?T(u) ,rep(6,6)) 

?T( l)_rep(?T( 1) ,6) 

?T( pmf )_( 1/(?T(u)-?T(l)+1))"2 
?T(ml)  max(?T(pmf)) 

?T(zz)~matr  ix(?T(pmf) ,6,6,byrowsTRUE) 

?T(zz)_?T(zz)/?T(ml) 
par(mfrowsc( 1 , 1 ) ,  oraasc( 5 ,0 ,0,0) ) 


X 


persp(?T(zz) ) 

t it le(  mains  "Maximum  Likelihood  for  Discrete  Uniform  Distribution", 
encode( "Lower  Bound(L)  :  [”,?T(ss)-5,?T(ss) ,"]  ", 

"Upper  Bound ( R)  :  [ ",?T( bs) ,?T( bs)+5 , "] ") ) 
mtext( s  ide= 1 ,1 ine= 1 , outers TRUE, 

encode( "Given  Samples ",?T(ss) ,?T(bs) , 

"V/hen  Boundary  s  (",?T(ss)  ,?T(bs) ,")  L(P)  s",?T(ml))) 
rm(?T(x),?T(y),?T(rs) ,?T(l),?T(u) ,?T(bs) ,?T( ss) ,?T(mx) , 

?T(mn) ,?T( px) ,?T(pmf ) ,?T( py) ,?T( z) ,?T(ml) ,?T( zz) ) 
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MACRO  mlecont 

({ 

item_c( "Normal  Distribution", 

"Lognormal  Distribution", 
"Exponential  Distribution", 
"Uniform  Distribution", 

"Standard  Gamma  Distribution 
"Go  to  previous  step") 
action  c("?mlenorm", 

"?mlelnorm", 

"?mleexpon", 

"?mlecun if", 

"?mlestgam" , 

"?mle") 

menu(  item  ,  action) 
rm(  item,  action) 

)) 

END 


MACRO  mlenorm 

({ 

item_c( "Sample  size  1", 
"Sample  size  2", 

"Go  to  Previous  Step") 
act  ion_c( "?mlenorm1 ", 
"?mlenorm2", 
"?mlecont") 
menu(  item  ,  action) 
rm(  item,  action) 


MACRO  mlenorml 

(  { 

item  c( "1  Parameter  for  Mean" 
Parameter  for  Sigma 
"2  Parameters", 

"Go  to  previous  step") 
act  ion_c( "?mlenorm1m" , 
"?mlenorm1s", 
"?mlenormlb", 
"?mlenorm") 
menu(  item  ,  action) 
rm(  item,  action) 

}) 

END 


MACRO  mlenorm2 

(  l 

item_c("1  Parameter  for  Mean" 
"1  Parameter  for  Sigma' 
"2  Parameters", 

"Go  to  previous  step") 
act  ion_c( "?mlenorm2m" , 
"?mlenorm2s" , 
"?mlenorm2b" , 
"?mlenorm") 
menu (  item  ,  action) 
rm(  item,  action) 


MACRO  mlenormlmC 

x/?PR0MPT( Random  Sample  X  :)/, 

3/?PR0MPT( G iven  Sigma  (  S  >  0  )  :)/, 
m/?PR0MPT( Estimated  Mean  Value  :)/) 

# 

#  This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  Normal  d istr ibut ion(  For  one  sample  with  known  Sigma). 

# 

({ 

par(mfrow=c( 1 , 1 ) ,  oma=c(5,3,0,0)) 

?T(x)_x 
?T(s)_s 
?T(m)  m 

?T( esT_abs(?T(x)-?T(m) )+?T( s) 

?T(xx)_seq(?T(m)-?T(es) ,?T( m)+?T(  es) ,len=51 ) 
?T(xl)_floor(min(?T(xx) ) ) 

?T( xr)_ce il  ing(max( ?T( xx) ) ) 

?T(y)  dnorm(?T(xx) ,?T(m) ,?T( s) ) 

?T( myT_dnorm( ?T( m) ,?T(m) ,?T(s)) 

?T( iy)_dnorm(?T(x) ,?T(m) ,?T(s)) 

plot(?T(xx) ,?T(y) , types "1", xlab= "X-Value" ,ylab="", 

main=encode(  "PDF  for  Given  Sigma  :",?T(s),"  Estimated  Mu 
?T(m) ) ,  sub=encode( "When  X  =",?T(x),"  PDF  =  ",?T(iy)), 
xl  im=o(?T(xl) ,?T(xr) ) ,yl im=c(0, 1 . 1*?T(my) ) ,cex= .5,err=-1 ) 
lines(c(?T(x),?T(x),?T(xl)),c(0,?T(  iy),?T( iy))) 
arrows(?T(m) ,?T(my) ,?T(m) ,0) 
arrows(?T(m) ,?T(my) ,?T(xl) ,?T(my) ) 
mtext( s ide=2,  linesl,  outersT,  "PDF") 
mtext( s ide=1 ,1 ine=1 ,outersTRUE, 

"If  you  want  to  see  the  MLE  for  Mean, 

hit  Return  when  GO?  appears.  If  not,  hit  the  Break  key") 
?T(mm)_seq(?T(x)-1.5*?T(es),?T(x)-t-1 .5*?T(es)  ,len=51 ) 
?T(nm)_len(?T(mm) ) 

?T( 1)  dnorm( rep(?T(x) ,?T( nm) ) ,?T( mm) ,rep(?T(s) ,?T(nm) ) ) 

?T(xl7  floor(min(?T(mm) )) 

?T(xr)  ce  il  ing(max(?T(mm) ) ) 

?T(ml)~dnorm(?T(x) ,?T(x) ,?T(s) ) 
par(mfrow=c( 1 , 1 ) ,  oma=c(0,3,0,0)) 
plot(?T(mm) ,?T(1) ,type="l",xl  imrc(?T(xl) ,?T(xr) ) , 
xlab="Mu",ylab="",yl  im=c( 0, 1 . 1*?T(ml) ) , 

main="Max  imum  Likelihood  Estimate  for  Normal  Distribution", 
sub=encode( "Given  X  :",?T(x),"S  :",?T(s) ,"When  Mu  r", 

?T( x) , "L( M)  =" ,?T( ml) ) ,cex= .5 ,err=-1 ) 
mtext(side=2,  line=2,  outer=T,  "MLE") 

1  ines(c(?T(m)  ,?T(m)  ,?T(xl) )  ,c(0,?T(  iy),?T(  iy))) 
arrows(?T(x) ,?T(ml) ,?T(x) ,0) 
arrows(?T(x) ,?T(ml) ,?T(xl) ,?T(ml) ) 

rm( ?T(x) ,?T( s) ,?T( m) ,?T( nm) ,?T(y) ,?T(xl) ,?T(xr) ,?T( es) ,?T( xx) , 
?T(my) ,?T(  iy) ,?T( mm) ,?T( 1) ,?T(ral) ) 

}) 

END 
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MACRO  mlenorm1s( 

x/?PR0MPT( Random  Sample  X  :)/, 
m/?PROMPT( Given  Mu  :)/, 
s/?PR0MPT( Est imated  Sigma  (S>0)  :)/) 


# 

#  This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  Normal  d  istr  ibut  ion(  For  one  sample  with  known  Mu). 

# 

({ 

?T(x)_x 
?T(m)_m 
?T( s)  s 

if(?Tlx)r=?T(m))  { 

print  ("When  X  and  Mu  are  same,") 

print  ("the  only  possible  Sigma  is  zero") 

} 

if(  ?T(x) !  =?T(m) )  { 

par(mfrow=c( 1 , 1 ) ,  oma=c(5,3,0,0) ) 

?T(es)_abs(?T(x)-?T(m) ) 

?T(xx)  seq(?T(x)-1 .5*?T(es) ,?T(x)+1 .5*?T( es) ,len=51 ) 

?T(  iy)~dnorm(?T(x) ,?T(m) ,?T( s) ) 

?T(  im)_dnorm(?T(m) ,?T(m) ,?T(  s) ) 

?T( 1)  dnorm(?T(xx),?T(m),?T(s)) 

?T(xlT_floor(min(?T(xx) ) ) 

?T( xr)_ce  il  ing( max( ?T(  xx ) ) ) 

plot(?T(xx) ,?T( 1) ,types"l",xl im=c(?T(xl) ,?T(xr) ) , 
xlab="X" ,ylab=""  ,yl im=c( 0, 1 . 1*?T( im)), 

main=encode( "PDF  for  Given  Mu  :",?T(m) , "Est imated  S  :",?T(s)), 
subsencode( "When  X  is",?T(x),"  PDF  is" ,?T( iy) ) ,cex= .5 ,err=-1 ) 
lines(c(?T(x),?T(x),?T(xl)),c(0,?T(  iy),?T(  iy))) 

-'>rrows(?T(m)  ,?T(  im)  ,?T(m)  ,0) 
arrowsC ?T(m) ,?T(  im) ,?T(xl) ,?T(  im)) 
mtext( 3 ide=2 ,  line=1,  outersT,  "PDF”) 
mtext(side=1 ,1 ine=1 ,outer=TRUE, 

"If  you  want  to  see  the  MLE  for  Sigma,  range  S+/-2, 
hit  Return  when  GO?  appears.  If  not,  hit  the  Break  key") 

?T( sl)_max( 0,?T(s)-2) 

?T(sr)_?T(s)+2 

?T(ss)_seq(?T(sl) ,?T(sr) ,len=101 ) 

?T(  ss )_?  T( as ) [ ?T( ss) >0 ] 

?T(ns)_len(?T(  ss) ) 

?T(y)  dnorm( rep(?T(x) ,?T( ns) ) ,rep(?T(m) ,?T(ns) ) ,?T( ss) ) 

?T( xlT_floor(  ?T(  si ) ) 

?T(  xr)_ce  il  ing(  ?T(  sr) ) 

?T(ml)_dnorm(?T(x) ,?T(m) ,?T(es) ) 
if  (  ?T(es)  >=  ?T( si)  &  ?T( es)  <=  ?T(sr)  )  { 

par(mfrow=c( 1 , 1 ) ,  oma=c(0,3,0,0)) 
plot(?T( ss) ,?T(y) , types "1" ,xl  imsc(?T(xl) ,?T(xr) ) , 
xlabs "Sigma" ,ylabs"" ,yl  im=c( 0, 1 . 1*?T( ml) ) , 
mains  "Max  imum  Likelihood  Estimate  for  Normal  Distribution", 
subsencode( "Given  X  :",?T(x),"Mu  :",?T(m) ,"When  S  =",?T(es), 
"L( S)  s",?T(ml)),cexs.5,err=-1) 
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mtext( s ide=2,  lineal,  outeraT,  "MLE") 

1  ines(c(?T(s) ,?T(s),?T(xl)),c(0,?T( iy),?T( iy))) 
arrows(?T(es) ,?T(ml) ,?T( es) ,0) 
arrows(?T(es) ,?T(ml) ,?T(xl) ,?T(ml) ) 

} 

if  (  ?T( es)  <  ?T( si)  I  ?T( es)  >  ?T(sr)  )  { 

par(mfrow=c(  1 , 1 ) ,  oma=c(5»3*0,0) ) 
plot( ?T( ss) ,?T(y) , types "1" ,xl im=c( ?T(xl) ,?T(xr)), 
xlab="S  igma" ,ylaba"" ,yl imac( 0,max( ?T(y ) ) ) , 
main="Max  Imum  Likelihood  Estimate  for  Normal  Distribution" 
suba "There  is  no  Sigma  which  will  make  MLE",) 

1 ines( c( ?T( s),?T(s),?T(xl)),c(0,?T(  iy),?T(  iy))) 
mtext( s ide=2,  lineal,  outer=T,  "MLE") 
mtext( s  ide= 1 ,1 ine= 1 , outer =TRUE, 

"If  you  want  to  see  the  MLE,  hit  Return  when  GO?  appears 
If  not,  hit  the  Break  key") 

?T( ss)_seq( 0, 1 .5*?T( es) , len=5 1 ) 

?T(ss)_?T(ss)[?T(ss)>0] 

?T(xr)_ce  il  ing(max(?T(  ss) ) ) 

?T(ns)_len(?T(ss) ) 

?T(y)_dnorm(rep(?T(x) ,?T(ns) ) ,rep(?T(m) ,?T( ns) ) ,?T( ss) ) 
par(mfrow=c( 1 , 1 ) ,  oma=c( 0,3 *0,0) ) 
plot(?T( ss) ,?T(y) ,type="l" , 

xlab="S igma" ,ylab="" ,yl im=c(0, 1 . 1*?T(ml) ) , 

main=  "Max  imum  Likelihood  Estimate  for  Normal  Distribution" 

sub=encode( "Given  X  :",?T(x),"Mu  :",?T(m),"  When  S  =", 

?T( es) , "L( S)  =",?T(ml) ) ,cex= .5 ,err=-1 ) 
mtext(side=2,  lineal,  outeraT,  "MLE") 

1 ines( c(?T(s),?T(s),0),c(0,?T( iy),?T( iy))) 
arrows( ?T( es) ,?T(ml) ,?T(es) ,0) 
arrows( ?T(es) ,?T(ml) ,0,?T(ml) ) 

} 

rm(?T(sl) ,?T(sr) ,?T(ss) ,?T(ns) ,?T(y) ,?T(  im), 

?T(xl) ,?T(xr) ,?T(es) ,?T(ml) ,?T(xx) ,?T(  iy) ) 

} 

rm(?T(x) ,?T(m) ,?T(s) ) 


MACRO  mlenorm1b(x/?PROMPT( Random  Sample  X  :)/) 

# 

#  This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  Normal  d  istr  ibut  ion(  For  one  sample  with  unknown  Mu  &  Sigma) 

# 

({ 

par(mfrow=c( 1,1),  oma=c(5,0,0,0) ) 

?T(x)_x 
?T( s)_1 : 1 1 

?T( m)_seq( ?T(x)-5 ,?T( x)+5 , len= 1 1 ) 

?T(m)_rep(?T(m) ,rep(  11,11)) 

?T( s)  rep( ?T( s) ,11) 

?T(z)~dnorm(rep(?T(x), 121 ) ,?T(  m) ,?T(  s) ) 

?T(  pzT_?T(  z)  /max(  ?T(  z) ) 

?T(  pz)_matr ix( ?T( pz) , 1 1 , 1 1 , byrow=TRUE) 
persp(?T(pz) ) 

t  it  le(  main=  "Max  imum  Likelihood  Estimate  for  Normal 
Distr  ibut  ion",  sub=encode(  "Given  X  is",?T(x), 

"Sigma  (Left)  1  :  11,  Mu  ( R ight) " ,?T(x)-5 ,":",?T(x)+5)) 
mtext(  s ide= 1 ,1 ine= 1 ,outer=TRUE, 

encode ( "Assume  min  Sigma  =  1,  when  Mu  =",?T(x),"S  =  1  L(M, 


max( ?T( z) ) ) ) 

rm(?T(x) ,?T(s),?T(m),?T(z),?T(pz)) 


MACRO  mlenorm2ra( 

x/?PROMPT( Random  Sample  X  :  )/, 
y/?PR0MPT( Random  Sample  Y  :  )/, 
r/?PR0MPT( Correlation  (  !R1  <  1  )  :  )/, 
s/?PR0MPT( Given  Sigma  (  S  >  0  )  :  )/, 
m/?PROMPT( Estimated  Mu  :  )/) 
# 


#  This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  Normal  d  istr  ibut  ion(  For  two  sample  with  known  Sigma). 

# 

({ 

par(mfrow=c( 1 , 1 ) ,  oma=c(5, 0,0,0) ) 

?T(x)_x 
?T(y)_y 
?T(r)_r 
?T(s)_s 
?T( m)  m 

?T(dx7_(?T(x)-5) :(?T(x)+5) 

?T(dy)_(?T(y)-5) :(?T(y)+5) 

?T(dx)_rep(?T(dx) ,rep( 11,11)) 

?T(dy)_rep(?T(dy) ,11) 

?T( z)  ?db  inorm(?T(m) ,?T(s) ,?T(m) ,?T( s) ,?T(r) ,?T(dx) ,?T(dy) ) 

?T(  pz7_?T( z)/max( ?T( z) ) 

?T( pz)_matr  ix(?T(pz), 11,11 ,byrow=TRUE) 

?T( iz)_?dbinorm(?T(m),?T(s),?T(m),?T(s),?T(r),?T(x),?T(y)) 
persp(?T( pz) ) 

t itle( main=encode( "PDF  Surface  for  Given  S:",?T(s),"R:",?T(r), 
"Estimated  Mu:",?T(m)), 

sub=encode( "When  X=",?T(x) ,"( R/center)  Y=" ,?T(y ) , "( L/center) " , 

"  PDF  =" ,?T( iz))) 
mtext( s  ide= 1 , 1 ine= 1 ,outer=TRUE, 

"If  you  want  to  see  the  MLE  for  Mu,  hit  Return 
when  GO?  appears.  If  not,  hit  the  Break  key") 
?T(mt)_(?T(x)+?T(y))/2 
?T(df)_abs(?T(mt)-?T(m) )+?T(s) 

?T(mm)  seq( ?T( mt ) -?T( df ) ,?T( mt )+?T(df ) ,len=5 1 ) 
?T(l)_?dbinorm(?T(mm) ,?T(s) ,?T(mm) ,?T(s) ,?T(r) ,?T(x) ,?T(y)) 
?T(xll)_floor(min(?T(mm) )) 

?T(xlr)_ce  il  ing(  max(  ?T(  mm) ) ) 

?T(yl)_max( ?T( 1) ) 

?T(ml)_?db  inorm(?T(mt) ,?T(s) ,?T(mt) ,?T(s) ,?T(r) ,?T(x) ,?T(y) ) 
par(mfrow=c( 1 , 1 ) ,  oma=c(5,3,0,0)) 
plot(?T(mm) ,?T( 1) ,type="l",xl  im=o(?T( xll) ,?T(xlr) ) , 
xlab="Mu",ylab="",yl  im=c( 0, 1 . 1*?T(yl) ) , 
main="Max  imum  Likelihood  Estimate  for  Normal  Distribution 
sub=encode(  "Given  X  :",?T(x),"Y  :",?T(y),"S  :",?T(s),"R  : 
?T( r) ) ,cex= .5 ,err=-1 ) 
mtext( s  ide=2 ,  line=1,  outer=T,  "MLE") 

1  ines(c(?T(m) ,?T(m),?T(xll)),c(0,?T(  iz),?T(  iz))) 
arrows(?T(mt) ,?T(yl) ,?T(mt) ,0) 
arrows(?T(mt) ,?T(yl) ,?T(xll) ,?T(yl) ) 
mtext( s ide= 1 , 1 ine=1 , cex=2 , outer =TRUE, 
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MACRO  mlenorm2s( 

x/?PR0MPT( Random  Sample  X  :  )/, 

y/?PROMPT( Random  Sample  Y  :  )/, 

r/?PROMPT{ Correlation  (  !R!  <  1  )  :  )/, 

m/?PROMPT( Given  Mu  :  )/, 

s/?PROMPT( Estimated  Sigma  (  S>0  )  :  )/) 

# 

#  This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  Normal  d  istr  ibut  ion(  For  two  sample  with  known  Mu). 

# 

({ 

?T(x)_x 
?T(y)_y 
?T(r)_r 
?T(m)_m 
?T(  s)_s 

ift  (?T(x)==?T(m) )  &  (?T(y)==?T(m) )  )  { 
print  ("When  X  and  Y  and  Mu  are  all  same,") 
print  ("Sigma  =  zero  is  the  MLE") 

} 

if(  (?T(x)  !=?T(m) )  i  (?T( y ) !  =?T( m) )  )  { 


if(  (?T(x)  !=?T(m) )  i  (?T( y ) !  =?T( m) )  )  { 
par(mfrow=c( 1 , 1 ) ,  oma=c(7,0,0#0)) 
?T(xx)_seq(?T(x)-2«?T(s),?T(x)+2«?T(s) ,len=1 1) 

?T(sx)_?T(xx)[ 1] 

?T(bx)  ?T(xx)[11] 

?T( dx)_?T( xx) [2]-?T(  xx) [ 1 ] 

?T(yy)_seq(?T(y)-2*?T(s),?T(y)+2*?T(s) ,len=11) 
?T(sy)_?T(yy)[1] 

?T( by)_?T(yy) [11] 

?T(  dy)_?T(yy) [2]-?T(yy)[1] 

?T(xx)_rep(?T(xx) ,rep( 11,11)) 

?T( yy)_rep( ?T( yy ) , 1 1 ) 

?T( z)  ?db inorm(?T(m) ,?T( s) ,?T(m) ,?T( s) ,?T(r) ,?T(xx) ,?T(yy)) 
?T( izT_?db inorm( ?T( m) ,?T( s) ,?T(m) ,?T( s) ,?T( r) ,?T(x) ,?T(y) ) 
?T( z)  ?T( z) /max( ?T( z) ) 

?T( z)  matr ix( ?T( z) , 1 1 , 1 1 ,byrow=TRUE) 
perspT?T( z) ) 

t  itle(main=encode(  "PDF  for  Given  Mu  :",?T(m) , "Estimated  S  :" 
sub=encode( "Y( L)  ( " ,?T( sy) ,?T( by ) , "]  Dy  =",?T(dy), 

"X( R)  [ " ,?T( sx) ,?T( bx) , "3  Dx  =",?T(dx))) 
mtext(  s  ide=1 ,1  ine=1  ,outer=TRUE, 

encode(  "When  X  is",?T(x),"  Y  is"  ,?T(y) ,  "PDF  is",?T(iz))) 
mtext(  side=1 ,1  ine=3,outer=TRUE, 

"If  you  want  to  see  the  MLE  for  Sigma,  range  S+/-2, 
hit  Return  when  GO?  appears.  If  not,  hit  the  Break  key") 

?T( sl)_max( 0,?T( s) -2) 

?T( sr)_?T( s)+2 

?T( ss)~seq(?T( si) ,?T( sr) ,len=101 ) 

?T( ss)_?T( ss) [?T( S3) >0] 

?T( zz)  ?db  inorm(?T(m) ,?T(ss) ,?T(m) ,?T(ss) ,?T(r) ,?T(x) ,?T(y) ) 
?T( xllT_floor(?T(  si)) 

?T( xlr )  ceil  ing(?T(sr)) 


"  ,?T( s) ) , 


?T(xm)  ?T(x)-?T(m) 

?T(ym)“?T(y)-?T(m) 

?T(  es)~sqrt(  (?T(xm)*2-2*?T(  r)*?T(xm)*?T(ym)+?T(ym)''2)  / 

(2«( 1-?T(p)*2))) 

?T(ml)_?db  inorm(?T(m) ,?T( es) ,?T(m) ,?T(es) ,?T(r) ,?T(x) ,?T(y) ) 
par(mfVow=c( 1 , 1 ) ,  oma=c(5, 3.0,0)) 

plot(?T( ss) ,?T(zz) , types "l",xl  imsc(?T(xll) ,?T(xlr) ) , 
xlabs"Sigma",ylabs"") 
mtext(  s  ides2,  linesl,  outersT,  "MLE") 

1  lnes(c(?T( s),?T(s),?T(xll)),c(0,?T(  iz),?T(  iz))) 
if  (  ?T( es)  >s  ?T( si)  &  ?T( es)  <s  ?T(sr)  )  { 

t  itle(  mains  "Max  imum  Likelihood  Estimate  for  Normal  Distribution" 
subsencode( "Given  X:",?T(x) ,"Y:",?T(y) ,"Mu:",?T(m) ,"When  S 
?T(es),"L(S)s",?T(ml)),cexs.5,errs-1) 
arrows(?T(es) ,?T(ml)/5,?T(  es) ,0) 

arrows(?T(xll)+(?T(xlr)-?T(xll))/5,?T(ml),?T(xll) ,?T(ml)) 

} 

if  (  ?T( es)  <  ?T( si)  I  ?T(  es)  >  ?T(sr)  )  { 

title(  mains  "Max  imum  Likelihood  Estimate  for  Normal  Distribution" 
subs"There  is  no  Sigma  which  will  make  MLE",) 
mtext(  sides  1 ,1  inesl  ,outersTRUE, 

"If  you  want  to  see  the  MLE,  hit  Return  when  GO?  appears 
If  not,  hit  the  Break  key") 

?T( sm)_seq( 0, 1 .5*?T( es) ,lens51 ) 

?T( sm)  ?T( sm) [?T( sm) >0] 

?T(xrr7_ce  il  ing(max(?T(  sm) ) ) 

?T(zt)_?db inorm(?T(m) ,?T( sm) ,?T(m) ,?T( sm) ,?T(r) ,?T(x) ,?T(y) ) 
parCmfPowscC 1 , 1 ) ,  omasc(0,3»0,0)) 
plot(?T( sm) ,?T( zt) , types "1", 

xlabs"Sigma",ylabs"",yl  imsc(0, 1 . 1»?T(ml) ) , 

mains"Max  imum  Likelihood  Estimate  for  Normal  Distribution" 

subsencode(  "Given  X:" ,?T( x) ,"Y: " ,?T(y) , "Mu : " ,?T(m) , 

"When  Ss",?T(es),"L(S)s",?T(ml)),cexs.5,errs-1) 
mtext(  sides2,  lines!,  outersT,  "MLE") 

1  ines(  c(?T(  s)  ,?T(  s)  ,?T(xll) )  ,c(  0,?T(  iz),?T(  iz))) 
arrows(?T(es),?T(ml)/5,?T(es) ,0) 
arrows(?T(xrr)/5,?T(ml),0,?T(ml)) 
rm(?T( sm) ,?T(xrr) ,?T(  zt) ) 

} 

rm(?T( si) ,?T( sr) ,?T( ss) ,?T(xx) ,?T(yy) ,?T(z) ,?T(  iz) ,?T(xm) ,?T(ym) 
?T( xll) ,?T( xlr) ,?T( es) ,?T(ml) ,?T(zz)) 

} 

rm(?T(x) ,?T(y),?T(m) ,?T(s) ,?T(r) ,?T( sx) ,?T( bx) ,?T(dx) , 

?T( sy) ,?T( by ) ,?T(dy) ) 


II] 


1  -v 


MACRO  mlenorm2b( 

x/?PROMPT( Random  Sample  X  :  )/, 
y/?PROMPT( Random  Sample  Y  :  )/, 
r/?PROMPT( Correlation  (  |Ri  <  1  )  :  )/, 
m/?PROMPT( Estimated  Mu  :  )/, 
s/?PR0MPT( Estimated  Sigma  (  S>0  )  :  )/) 
# 


#  This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  Normal  d  istr  ibution(  For  two  sample  with  known  Mu). 

# 

({ 

?T(x)_x 
?T(y)  y 
?T(r)“r 
?T(m)_m 
?T(  s)_s 

par(mfhow=c(  1 , 1 ) ,  oma=c(7, 0,0,0)) 

?T(xx)_seq(?T(x)-2*?T( s) ,?T(x)+2»?T( s) ,len= 1 1 ) 

?T( sx)_?T(xx) [ 1 ] 

?T( bx)_?T(xx) [11] 

?T(dx)_?T(xx)[2]-?T(xx)[1] 

?T(yy)_seq(?T(y)-2*?T( s) ,?T(y)+2*?T( s) ,  len= 1 1 ) 

?T( sy)_?T(yy) [ 1 ] 

?T( by )_?T(yy) [ 1 1 ] 

?T(dy)~?T(yy)[2]-?T(yy)[1] 

?T( xx)_rep( ?T(xx) ,rep( 11,11)) 

?T(yy)_rep(?T(yy) ,11) 

?T(z)  ?db  inorm(?T(m) ,?T( s) ,?T(m) ,?T( s) ,?T(r) ,?T(xx) ,?T(yy) ) 

?T( izT_?db inorm( ?T(  m) ,?T(s) ,?T(m),?T(s) ,?T(r) ,?T(x) ,?T(y)) 

?T( z)_?T( z)/max( ?T( z) ) 

?T( z)  matr ix( ?T( z) , 1 1 , 1 1 , byrow=TRUE) 
perspT?T(z) ) 

title(main=encode( "PDF  for  Estimated  Mu  :",?T(m),"  S  :",?T(s)), 
sub=encode( "Y( L)  [ " ,?T( sy ) ,?T( by) , "]  Dy  =",?T(dy), 

"X( R)  [ " ,?T( sx) ,?T( bx) , "]  Dx  =",?T(dx))) 
mtext(  s  ide=1 ,1  ine=1  ,outer=TRUE, 

encode(  "G  iven  X  :",?T(x),"  Y  :",?T(y)  ,"PDF  =",?T(iz))) 
mtext(side=1,l  ine=  3,  outers  TRUE, 

"If  you  want  to  see  the  MLE  for  Mu  and  Sigma, 

hit  Return  when  GO?  appears.  If  not,  hit  the  Break  key") 

if(  ?T(x)  ==?T(y)  )  { 

print  ("When  X  and  Y  are  same,") 

print  ("Mu  =  X(or  Y)  and  Sigma  =  zero  is  the  MLE") 

} 

if(  ?T(x)!=?T(y)  )  { 

?T( em)_(?T( x)+?T( y ) )/2 
?T(xm)_?T(x)-?T( em) 

?T( ym)  ?T(y)-?T( em) 

?T( es)~sqr t( ( ?T( xm)*2-2*?T( r)*?T( xm)*?T(ym)+?T(ym) ~2)  / 

( 2*( 1-?T(  r )“2) ) ) 

?T( mm)_seq( ?T( m) -?T( s) ,?T( m)+?T( s) , len= 1 1 ) 

?T( lm)  ?T( mm) [ 1 ] 
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?T( bm)_?T(mm) [11] 

?T( dm)  ?T(mm) [2]-?T( mm) [ 1 ] 

?T( ss)“seq( .5*?T( s) , 1 .5*?T( s) , len= 1 1 ) 

?T(ls)_?T( ss)[1] 

?T( bs)_?T( ss) t 1 1 ] 

?T(ds)~?T( ss) [2]-?T( ss) [ 1 ] 

?T(mz)_?db inorm(?T( em) ,?T( es) ,?T( em) ,?T( es) ,?T( r) ,?T(x) ,?T(y) ) 
?T(mm)”rep(?T(mm) ,rep( 11,11)) 

?T( ss)_rep(?T( ss) ,11) 

?T( zz)  ?db  inorm(?T(mm) ,?T( ss) ,?T(mm) ,?T( ss) ,?T(r) ,?X(x) ,?T(y) ) 

?T( zz)~?T( zz)/max(?T( zz) ) 

?T( zz)_matr ix(  ?T( zz) , 1 1 , 1 1 ,byrow=TRUE) 
persp(?T(zz)) 

if(  (min(?T(mm)  )<=?T(em) )  4  ( max( ?T( mm) ) >=?T(  em) )  & 

(m in(?T( ss) )<=?T( es) )  4  ( max(?T( ss) )>=?T( es) )  )  { 

title(main="Max  imura  Likelihood  Estimate  for  Normal  Distribution", 
sub=encode( "S igma( L)  [",?T(ls) ,?T(bs) , "]  Ds  =",?T(ds), 

"Mu( R)  [”,?T( lm) ,?T( bm) , Dm  =",?T(dm))) 
mtext(  sides  1 ,1  ine=1  ,outer=TRUE, 

encode( "Given  X  :",?T(x),"  Y  :",?T(y),"  R  :",?T(r))) 
mtext(  sides  1 ,1  ine=3,outer=TRUE, 

encode("When  Mu  =",?T(em),"  Sigma  =",?T(es),"  L(M,S)  =",?T(mz))) 

} 

if(  (m  in(?T(mm) )  >?T(  em) )  I  (max(?T(mm)  )<?T(  em) )  ! 

(m in(?T( ss) ) >?T( es) )  !  (max(?T( ss) )<?T( es) )  )  { 

title(main=encode<  "For  given  X  :",?T(x),n  Y  :",?T(y),"  R  s",?T(r)), 
sub=encode( "Sigma(L)  [ ",?T( Is) ,?T( bs) , "]  Ds  =",?T(ds), 

"Mu( R)  [" ,?T( lm) ,?T( bm) , "]  Dm  =",?T(dm)))  • 

mtext(  s  ide=1 ,1  ine=1  ,outer=TRUE, 

encode(  "There  is  no  Mu  or  Sigma,  which  will  make  MLE") ) 
mtext(  s  ide=1 ,1  ine=3,outer=TRUE, 

"If  you  want  to  see  the  MLE  for  Mu  and  Sigma,  hit  Return 
when  GO?  appears.  If  not,  hit  the  Break  key") 

?T( sm)_seq(0, 1 .5*?T( es) , len= 12) 

?T( sm)_?T( sm) [?T( sm) >0] 

?T( Is)  ?T( sm) [ 1 ] 

?T( bs)~?T( sm) [11] 

?T(ds)  ?T( sm) [2]-?T( sm) [ 1 ] 

?T( fto)~seq( ?T( em) -1 .5*?T( es) , ?T( em) +1 .5#?T( es) , len= 1 1 ) 

?T(lm)_?T( fta) [ 1 ] 

?T(bm)_?T( fta) [11] 

?T(dm)_?T( fta) [2]-?T( fta)[1] 

?T( fta)_rep(?T( fta) ,rep( 11,11)) 

?T( sm)_rep(?T( sm) ,11) 

?T(zt)_?db  inorm(?T( fta) ,?T( sm) ,?T( fta) ,?T( sm) ,?T( r) ,?T(x) ,?T(y) ) 

?T( zt)  ?T(zt)/max(?T(zt)) 

?T( zt) “matr ix( ?T( zt) , 1 1 , 1 1 ,byrow=TRUE) 
par(mfrow=c(  1 , 1 ) ,  oma=c(7, 0,0,0) ) 
persp(?T(zt)) 

t  itle(  main="Max  imum  Likelihood  Estimate  for  Normal  Distribution", 
sub=encode( "S  igma( L)  [",?T( Is) ,?T(bs) ,"]  Ds  =",?T(ds), 

"Mu( R)  [ " ,?T( lm) ,?T( bm) , " ]  Dm  =",?T(dm))) 
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ratext(  s  ide=1 ,1  ine=  1  ,outer=TRUE, 

encode( "Given  X  :",?T(x),"  Y  :n,?T(y),"  R  :",?T(r))) 
mtext(side=1 ,1  ine=3*ou  ter=TRUE, 

encode( "When  Mu  =",?T(em),"  Sigma  =",?T(es),"  L(M,S)  =",?T(mz))) 
rm(?T(zt),?T( fta) ,?T( am)) 

} 

rm(?T( em) ,?T(xm) ,?T(ym) ,?T(es) ,?T(mm) ,?T( ss) ,?T(zz) ,?T( lm) , 

?T(  bm) ,?T( Is) ,?T( bs) ,?T(ds) ,?T(dm) ) 

} 

rm(?T(x) ,?T(y) ,?T(r) ,?T(m) ,?T(xx) ,?T(yy) ,?T(z) ,?T(  iz),?T(sx), 

?T( bx) ,?T( sy) ,?T( by) ,?T(dx) ,?T(dy)) 
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MACRO  mlelnorm 

({ 

item_c( "Sample  size  1", 
"Sample  size  2", 

"Go  to  Previous  Step") 
action  c( "?mlelnorm1", 
"?mlelnorm2" , 
"?mlecont") 
menu(  item,  action) 
rm(  item,  action) 

}) 

END 


MACRO  mlelnorml 

({ 

item_c("1  Parameter  for  Mean" 
"1  Parameter  for  Sigma 
"Go  to  previous  step") 
action_c(  "?mlelnorm1m" , 
"?mlelnorm1s", 
"?mlelnorm" ) 
menu(  item  ,  action) 
rm(  item,  action) 

}) 

END 


MACRO  mlelnorm2 

({ 

item  c(  "1  Parameter  for  Mean" 
"1  Parameter  for  Sigma 
"2  Parameters", 

"Go  to  previous  step") 
action_c( "?mlelnorm2m" , 
"?mlelnorm2s", 
"?mlelnorm2b", 
"?mlelnorm") 
menu (  item  ,  action) 
rm(  item,  action) 


MACRO  mlelnorm1m( 

x/?PROMPT( Random  Sample  X  (  X  >  0  )  :  )/, 
s/?PROMPT( Given  Std  Dev  :  )/, 

m/?PR0MPT( Estimated  Mean  :  )/) 

# 

#  This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  mean  of  Lognormal  d  istribution. (Sample  size  one) 

# 

({ 

par(mfrow=c( 1 , 1 ) ,  omasc(5,3.0,0) ) 

?T(x)_x 

?T(s)_s 

?T(m)_m 

?T(xx)_seq(0,2»?T(x),len=51) 

?T( xx)_?T( xx) [?T(xx) >03 

?T(y)  dlnorm(?T(xx) ,?T(m) ,?T( s) ) 

?T( iy7_dlnorm(?T(x) ,?T(m) ,?T(s)) 

plot(?T(xx) ,?T(y) , types "1" ,xlabs"X-value",y labs"", 
main="PDF  for  Lognormal  Distribution", 
sub=encode( "For  Given  X  :",?T(x),"  When  Mean  =",?T(m), 

"  Std  Dev  =" ,?T( s) , "  PDF  =",?T(iy)), 
cex=.5,err=-1 ,yl  im=c( 0,max( ?T(y ) ) ) ) 
mtext(  s  ide=2,  lines'! ,  outersT,  "PDF") 

1  ines(e(?T(x)  ,?T(x)  ,0)  ,c(0,?T(  iy),?T(  iy))) 
mtext(  s  idesl  ,1  inesl ,  cexs2  .outers TRUE, 

"If  you  want  to  see  the  MLE  for  Mean,  hit  Return 
when  GO?  appears.  If  not,  hit  the  Break  key") 
?T(mm)_log(?T(x) ) 

?T(em)_seq(?T(mm)-2*?T(s),?T(mm)+2*?T(s),len=51) 
?T(yy)_dlnorm( rep(?T(x) ,len(?T( em) ) ) ,?T( em) ,?T( s) ) 
?T(my)_dlnorm( ?T(x) ,?T(mm) ,?T( s) ) 
par(mfhowsc( 1 , 1 ) ,  omasc(5, 3,0,0) ) 
plot(?T(em) ,?T(yy) , types"l" ,xlabs"Mean" ,ylabs"" , 

mains  "Max  imum  Likelihood  for  Lognormal  Distribution", 
subsencodeC "For  Given  X  :",?T(x),"  S  :",?T(s), 

"  When  M  s",?T(mm),"  L(M)  =",?T(my) ) ,yl  im=c(0, 1 . 1*?T(my) ) ) 
mtext(3ides2,  1  inesl,  outersT,  "MLE") 
sm.x_min(?T(em) ) 

sm.x_ifelse(  sm.x>0,  ce  il  ing(  sm.x) ,  floor(  sm.x) ) 

1  ines(c(?T(m)  ,?T(m)  ,sm.x)  ,c(0,?T(  iy),?T(  iy))) 
arrows(?T(mm) ,?T(my) ,?T(mm) ,0) 
arrows(?T(mm) ,?T(my) , sm.x,?T(my) ) 

rm( ?T(x)  ,?T(s)  ,?T(m)  ,?T(xx)  ,?T(  em)  ,?T(y)  ,?T(  iy)  ,?T(mm) , 

?T(yy) ,?T(my ) ,sm.x) 

}) 

END 
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MACRO  mlelnorm1s( 

x/?PROMPT( Random  Sample  X  :  )/, 

m/?PR0MPT( Given  Mu  :  )/, 

s/?PROMPT( Estimated  Sigma  (S>0)  :  )/) 

# 

#  This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  Lognormal  d  istr  ibut  ion(  For  one  sample  with  known  Mu). 

# 

(t 

?T(x)_x 

?T(m)_m 

?T(s)_s 

if(  log(?T(x)  )==?T(m) )  { 

print  ("When  Log(X)  and  Mu  are  same,") 

print  ("the  MLE  Sigma  Is  zero") 

} 

if( log(?T(x) ) ! =?T(m) )  { 
par(mfhow=c( 1 , 1 ) ,  oma=c(5,3»0,0)) 

?T(ms)_abs( log(?T(x) )-?T(m) ) 

?T(xx)_seq(0,?T(x)+2»?T(ms),len=51) 

?T(xx)_?T(xx) [?T(xx)>0] 

?T( iy)_dlnorm(?T(x) ,?T(m) ,?T( s) ) 

?T(l)_dlnorm(?T(xx) ,?T(m) ,?T(s)) 
plot(?T(xx) ,?T(1) ,type="l", 
xlab="X",ylab="", 

main="PDF  for  Lognormal  Dlstr  ibut  ion", 
sub=encode( "For  Given  X  :",?T(x),"  Mu  :",?T(m), 

"  When  S  s",?T(s),"  PDF  =",?T(iy))) 

1 lnes(c(?T(x) ,?T(x) ,0) ,c(0,?T( iy),?T(  iy))) 
mtext( s ide=2,  line=1,  outer=T,  "PDF") 
mtext(  s  ide=1 , 1  ine=  1  ,outer=TRUE, 

"If  you  want  to  see  the  MLE  for  Sigma,  hit  Return 
when  GO?  appears.  If  not,  hit  the  Break  key") 

?T(es)_max(?T(ms) ,?T( s) ) 

?T( es)_seq( 0, 1 .5*?T( es) ,len=5 1 ) 

?T( es)_?T( es) [?T( es) >0] 

?T( ns)_len( ?T( es) ) 

?T(y)  dlnorm(rep(?T(x) ,?T(ns) ) ,rep(?T(m) ,?T(ns) ) ,?T(es) ) 
?T(ml7_dlnorm(?T(x) ,?T(m) ,?T(ms) ) 
plot(?T(es) ,?T(y) , type="l" , 

xlab="Slgma",ylab="",yl  lm=c( 0, 1 . 1*?T(ml) ) , 
main="Max  imum  Likelihood  Estimate  for  Lognormal  Distribution 
sub=encode( "G iven  X  :",?T(x),"Mu  :",?T(m) ,"When  S  =",?T(ms), 
"L( S)  =",?T(ml)),cex=.5,err=-1) 
mtext(side=2,  line=1,  outer=T,  "MLE") 

1  ines( c(?T(s),?T(s),0),c(0,?T(  iy),?T(  iy))) 

arrows(?T(ms) ,?T(ml) ,?T(ms) ,0) 

arrows(?T(ms) ,?T(ml) ,0,?T(ml) ) 

rm(?T(x) ,?T(m) ,?T(s) ,?T(xx) ,?T(  iy) ,?T( 1) ,?T(ms) , 

?T(  es) ,?T( ns) ,?T(ml) ,?T(y) ) 

} 


MACRO  mlelnorm2m( 

x/?PROMPT( Random  Sample  X  (  X  >  0  )  :  )/, 

y/?PROMPT( Random  Sample  Y  (  Y  >  0  )  :  )/, 

s/?PR0MPT( G iven  Std  Dev  :  )/, 

m/?PR0MPT( Estimated  Mean  :  )/) 

# 

#  This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  mean  of  Lognormal  d  is tribut ion. (Sample  size  two) 

# 

(( 

par(mfrow=c(  1 , 1 ) ,  oma=c(7, 1 ,0,0) ) 

?T(x)_x 
?T(y)_y 
?T(  s)_s 
?T(m)  m 

?T( xx7_seq( 0 ,2*?T(x) , len= 1 1 ) 

?T(yy)_seq(0,2*?T(y) ,len=11) 

?T(xx)_?T(xx) t?T(xx)>0] 

?T( sx)_?T(xx) [ 1 ] 

?T( bx)_?T( xx) [10] 

?T( dx)_?T(xx) [2]-?T(xx)[1] 

?T(yy)J?T(yy)[?T(yy)>0] 

?T( sy)_?T(yy) [ 1 ] 

?T( by)_?T(yy) [10] 

?T(dy)j?T(yy)[2]-?T(yy)[1] 

?T(xz)_dlnorm(?T(xx),?T(m) ,?T(s)) 

?T(yz)_dlnorm(?T(yy) ,?T(m) ,?T( s) ) 

?T(xz)_matr ix(?T(xz) , 10, 1 ) 

?T(yz)_matr ix(?T(yz) ,1,10) 

?T( z)_?T(xz)?*?T(yz) 

?T( z)  ?T( z)/max( ?T( z) ) 

?T( iz7_dlnorm(?T(x) ,?T(m) ,?T( s) )*dlnorm( ?T(y) ,?T(m) ,?T( s) ) 
persp(?T( z) ) 

title(main="PDF  for  Lognormal  Distribution", 

sub=encode("Y(L)  :  [ " ,?T( sy ) ,?T( by ) , "]  Dy  =",?T(dy), 

"  X(R)  :  [",?T(sx) ,?T(bx) ,"]  Dx  =" ,?T( dx) ) ,err=-1 ) 
mtext(  s  ide=  1 ,1  ine=  1  ,cex=2 ,  outers  TRUE, 

encode( "For  Given  X  :",?T(x),"  Y  :",?T(y),"  When  Mu  =", 

?T(  m) , "  S  =",?T(s) ,"  PDF  =",?T(iz))) 
mtext(side=1 ,1 ine=3,cex=2,outer=TRUE, 

"If  you  want  to  see  the  MLE  for  Mean,  hit  Return 
when  GO?  appears.  If  not,  hit  the  Break  key") 

?T(mm)_mean( log(c(?T(x) ,?T(y) ) ) ) 

?T( em)_seq(?T( mm) -2*?T( s) ,?T( mm) +2»?T( s) , len=51 ) 

?T(yy )_dlnorm( rep(?T(x) , len(?T( em) ) ) ,?T( em) ,?T( s) )• 
dlnorm( rep(?T(y) ,len(?T( em) ) ) ,?T( em) ,?T( s) ) 
?T(my)_dlnorm(?T(x) ,?T(mm) ,?T( s) )«dlnorm(?T(y) ,?T(mm) ,?T( s) ) 
par(mfhow=c( 1 , 1 ) ,  oma=c(5,3,0,0) ) 
plot(?T( em) ,?T(yy) , type="l",xlab="Mean",ylab="" , 

main="Max  iraum  Likelihood  for  Lognormal  Distribution", 
sub=encode( "For  Given  X  :",?T(x),"  Y  :",?T(y),"  S  :",?T(s), 
"  When  M  =",?T(mm),"  L(M)  =" ,?T(my ) ) ,yl  im=c( 0, 1 . 1*?T(my ) ) , 


cex=.5,err=-1 ) 

mtext(  s  ide=2,  line=1,  outer=T,  "MLE") 
sm.x_min(?T(em) ) 

sm.x  ifelse( sm.x>0,  ce il ing( sm.x) , floor( sm.x) ) 

1  ines(c(?T(m)  ,?T(m)  ,sm.x)  ,c(0,?T(  iz),?T(  iz))) 
arrows(?T(mm)  ,?T(my)  ,?T(mm)  ,0) 
arrows(?T(mm) ,?T(my) ,sm.x,?T(my) ) 

rm(?T(x) ,?T(s) ,?T(m) ,?T(xx) ,?T( em) ,?T(y) ,?T(  iz) ,?T(mm) , 
?T(my),?T(yy),?T(xz),?T(yz),?T(z),?T( sx) ,?T( bx) ,?T( dx) 
?T( sy) ,?T( by) ,?T(dy) , sm.x) 


MACRO  mlelnorm2s( 

x/?PROMPT( Random  Sample  X  (  X  >  0  )  :  )/, 

y/?PROMPT( Random  Sample  Y  (  Y  >  0  )  :  )/» 

m/?PROMPT( Given  Mu  :  )/. 

s/?PROMPT( Estimated  Std  Dev  :  )/) 

#  This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  sigma  of  Lognormal  d  is tr  ibut ion. {Sample  size  two) 

# 

par(mfY'ow=c(  1,1),  oma=c(7»3>0,0) ) 

?T(x)_x 
?T(y)_y 
?T(m)_m 
?T(  s)  s 

?T(xx7_seq(0,2»?T(x) ,len=1 1) 

?T(yy)"”seq(0,2*?T(y)  ,len=1 1) 

?T(xx)J?T(xx)[?T(xx)>0] 

?T(sx)_?T(xx)[1] 

?T(bx)  ?T(xx)[10] 

?T(dx)”?T(xx)[2]-?T(xx)[1] 

?T(yy)  ?T(yy)[?T(yy)>0] 

?T(sy)'?T(yy)[1] 

?T{ by)_?T(yy) [ 10] 

?T(dy)_?T(yyH2]-?T(yy)[1] 

?T(xz)  dlnorm(?T(xx) ,?T(m) ,?T( s) ) 

?T( yz )_dlnorm( ?T( yy ) ,?T(m) ,?T(s)) 

?T(xz)_matr ix(?T(xz) , 10, 1) 

?T(yz)  matr ix(?T(yz) ,1,10) 

?T( z)  ?T(xz)$*?T(yz) 

?T( z)  ?T(z)/max(?T( z) ) 

?T( izT  dlnorm(?T(x) ,?T(m) ,?T( s) )*dlnorm(?T(y) ,?T(m) ,?T( s) ) 
persp(?T(z) ) 

title(main="PDF  for  Lognormal  Distribution", 

sub=encode("Y(L)  :  t",?T(sy) ,?T(by) ,"]  Dy  =",?T(dy), 

"  X(R)  :  C",?T(sx) ,?T(bx) ,"]  Dx  =",?T(dx) ) ,err=-1) 
mtex t( s  ide= 1 , 1  ine= 1 , cex=2 , ou  ter=TRUE , 

encode( "For  Given  X  :",?T(x),"  Y  :",?T(y) ,"  When  Mu  =”, 
?T(m) ,"  S  =",?T( s) , "  PDF  =",?T(iz))) 
iff  ?T(x)s=?T(y)  &  log(?T(x))==?T(m)  )  { 
mtext(side=1,l  ine=3,cex=2,outer=TRUE, 

"When  X  =  Y  and  Log(X)  is  same  as  Given  Mean 
MLE  for  Std  Dev  =  0") 

}  else  { 

mtext( s  ide=1 ,1  ine=3,cex=2 ,outer=TRUE, 

"If  you  want  to  see  the  MLE  for  Std  Dev,  hit  Return 
when  GO?  appears.  If  not,  hit  the  Break  key") 

?T(xy)  log(o(?T(x) ,?T(y) ) ) 

?T(ms)~ sqrt( sum( (?T(m)-?T(xy) )  2)/2) 

?T(es)”max(?T(s) ,?T(ms)) 

?T(es)”seq(0,2«?T(es) ,len=51 ) 

?T( es)  ?T( es) [?T( es) >0] 


?T(yy)_dlnorm( rep(?T(x) ,len{?T( es) ) ) ,?T(m) ,?T(  es) )* 

”dlnorm(  rep(?T(y) ,len(?T(es) ) ) ,?T(m) ,?T( es) ) 

?T(my)  dlnorm(?T(x) ,?T(m) ,?T(ma) )*dlnorm(?T(y) ,?T(m) ,?T(ms) ) 

par(mft*ow=c(  1 , 1 ) ,  oma=c(5,3,0,0)) 

plot(?T( es) ,?T(yy) ,  type="l",xlab="Std  Dev",ylab="", 

main="Max  imum  Likelihood  for  Lognormal  Distribution", 
yl  im=c( 0, 1 . 1*?T(my) ) ,  cex=.5,err=-1 ) 
mtext(  s  ide=2,  line=1,  outer=T,  "MLE") 
mtext(  s  ide=1 ,  line=1,  outer=T, 

encode(  "For  Given  X  :",?T(x),"  Y  :",?T(y),"  Mu  :",?T(m))) 
mtext( s ide=1 ,  line=3,  outer=T, 

encode("  When  S  =",?T(ms),"  L(M)  =",?T(my))) 

1  ines( c(?T( s) ,?T( s) ,0) ,c(0,?T( iz),?T(  iz))) 
arrows(?T(ms) ,?T(my) ,?T(ms) ,0) 
arrows(?T(ms) ,?T(my) ,0,?T(my) ) 

rm(?T(x) ,?T( s) ,?T(m) ,?T(xx) ,?T(es) ,?T(y) ,?T(  iz) ,?T(ms) , 
?T(my),?T(yy),?T(xz),?T(yz),?T(z),?T(sx),?T(bx), 

?T(dx) ,?T( sy) ,?T(by) ,?T(dy) ) 

} 


*jr 


MACRO  mlelnorm2b( 

x/? PROMPT ( Random  Sample  X  :)/, 

y/?PR0MPT( Random  Sample  Y  :)/, 

m/?PROMPT( Estimated  Mu  :)/, 

s/?PR0MPT( Estimated  Sigma  (  S>0  )  :)/) 

# 

#  This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  Lognormal  d  istr  ibution(  For  two  sample  with  unknown  Mu  &  S) . 

# 


?T(x)_x 
?T(y)_y 
?T(m)_m 
?T( s)_s 

parCmfY-owscC  1 , 1 ) ,  oma=c(  6, 0,0,0) ) 

?T(xx)_seq( 0,2*?T(  x) , lens 1 1 ) 

?T(yy)  seq(0,2*?T(y),len=11) 

?T(xx)~?T(xx) [?T(xx)>0] 

?T(sx)“?T(xx)[1] 

?T(bx)~?T(xx) [10] 

?T(dx)_?T(xx) [2]-?T(xx) [ 1 ] 

?T(yy)_?T(yy) [?T(yy)>0] 

?T(sy)  ?T(yy)[1] 

?T(by)__?T(yy)  [10] 

?T(dy)~?T(yy) [2]-?T(yy) [ 1] 

?T(xz)_dlnorm(?T(xx) ,?T(m) ,?T( s) ) 

?T(yz)_dlnorm(?T(yy) ,?T(m) ,?T(s)) 

?T(xz)_matrix(?T(xz),10,1) 

?T(yz)_matr ix(?T(yz) ,1,10) 

?T(z)_?T(xz)*»?T(yz) 

?T(  z)  ?T(  z)/max(  ?T(  z) ) 

?T(  izT_dlnorm(?T(x) ,?T(m) ,?T(s))*dlnorm(?T(y) ,?T(m) ,?T(s) ) 
persp(?T( z) ) 

title( main=  "PDF  for  Lognormal  Distribution", 

sub=encode("Y(L)  :  [ " ,?T( sy) ,?T( by) ,"]  Dy  =",?T(dy), 

"  X(R)  :  t",?T(sx) ,?T(bx) ,"]  Dx  =” ,?T( dx) ) ,err=-1 ) 
mtext( s  ide=1 ,1 ine=1 ,cex= 2, outers TRUE, 

encode( "For  Given  X  :",?T(x),"  Y  :",?T(y))) 
mtext(sides1 ,1 ines2,cexs2,outer=TRUE, 

encodeC"  When  Mu  s",  ?T(m),"  S  s",?T(s),"  PDF  s",?T(iz))) 
mtext(  sides  1,1  ines4,cexs2,outersTRUE, 

"If  you  want  to  see  the  MLE  for  Mu  &  S,  hit  Return 
when  GO?  appears.  If  not,  hit  the  Break  key") 

?T(xy)_log( c(?T(x),?T(y))) 

?T(mm)_mean( ?T(xy) ) 

if( ?T(x) ! s?T(y) )  ?T(ms)  sqrt( sum( ( ?T( mm) -?T( xy ) )'2)/2)  else 
?T(ms)  .01 


If  the  case  of  that  X  s  Y,  the  MLE  for  mean  is  mean  of  log(x)  and 
log(y),  and  then  the  MLE  for  sigma  should  be  0.  Since,  however, 

0  sigma  can't  be  plotted,  minimum  sigma  is  assummed  .01. 


258 


par(mfhowse(  1 , 1 ) ,  oma=c(6, 0,0,0) ) 

?T(  em)_seq(  ?T( mm) -2*?T(ms) ,?T( mm)+2*?T(ms) , len= 1 1 ) 

?T(es)_seq( 0,3*?T(ms) ,len=1 1 ) 

?T( em)_?T( em) [2 : 1 1 ] 

?T(dm)_?T( em) [2]-?T( em) [ 1 ] 

?T( es)_?T( es) [2: 1 1 ] 

?T( ds)_?T( es) [2]-?T( es) [ 1 ] 

?T( rm)~rep(?T( em) ,rep( 10, 10) ) 

?T( rs)_rep(?T( es) , 10) 

?T(xl)  dlnorm( rep(?T(x) , 100) ,?T(rm) ,?T( rs) ) 

?T(yl)~dlnorm( rep(?T(y) , 100) ,?T( rm) ,?T( rs) ) 

?T(  1)  ?T(xl)*?T(yl) 

?T(ir~?T(l)/max(?T(l)) 

?T(l)jnatr  ix(?T(l) ,10, 10,byrowsTRUE) 

?T(  il)_dlnorm(?T(x) ,?T(mm) ,?T(ms) )*dlnorm(?T(y) ,?T(mm) ,?T(ms)) 
persp(?T(l)) 

t  itle(main="Max  imum  Likelihood  Estimate  for  Lognormal  Distribution" 
sub=encode( "S( L) : [ " ,?T( es) [ 1 ] ,?T( es) [ 10] , 

"  Mu(R):[",?T(em)[1],?T(em)[10],"]")) 
mtext(  side=  1,1  ine=  1  ,outer=TRUE, 
encode( "Increment  of  S  :",?T(ds), 

"  Increment  of  Mu  :",?T(dm))) 

if(?T(x) !  =?T(  y) )  { 
mtext(  s  ide=  1,1  ine= 3,  outers  TRUE, 

encode( "Given  X:",?T(x) ,"Y:",?T(y) ) ) 
mtext(  s  ide=1 ,1  ine= 4,  outers  TRUE, 

encode( "  When  Mu=",?T(mm) ,"S=",?T(ms) ,"  L(M,S)=",?T( il) ) ) 

}  else  { 

mtext(  s  ides  1 ,1  inesl  ,outersTRUE, 

encode( "Given  X  s  Y  s",?T(y),"  Mu=",?T(mm), 

"Ss  0  will  be  the  MLE") ) 

} 

rm(?T(x),?T(y),?T(m),?T(s),?T(xx),?T(yy),?T(xz),?T(yz),?T(z), 

?T(  iz) ,?T(xy) ,?T(mm) ,?T(em) ,?T(ms) ,?T(es) ,?T(xl) ,?T(yl) , 

?T(  1) ,?T(  il) ,?T( rm) ,?T( rs) ) 


MACRO  mleexpon 

({ 

item  c( "Sample  size  1", 

“  "Sample  size  2", 

"Go  to  Previous  Step") 
action  c( "?mleexp1 " , 
"?mleexp2", 
"?mlecont") 
menu(  item  ,  action) 
rm(  item,  action) 

}) 

END 


MACRO  mleexpK 

x/?PROMPT( Random  Sample  X  :  )/, 
lm/?PROMPT( Estimated  Lambda  :  )/) 

# 

#  This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  Exponential  distribution. 

# 

({ 

par(mfhow=c(  1 , 1 ) ,  oma=c(5, 3,0,0)) 

?T(x)_x 
?T( 1)— lm 

?T(xxT_seq(0,2«?T(x) ,len=51 ) 

?T(y)  ?dex1 (?T(xx) ,?T( 1) ) 

?T(  iyT_?dex1(?T(x) ,?T(1) ) 

plot(?T(xx) ,?T(y) , type="l",xlab="X-value",ylab="", 
main="PDF  for  Exponential  Distr ibution", 

3ub=encode( "For  Given  X  :",?T(x),"  When  Lambda  =",?T(1), 
"PDF  =",?T( iy) ) ,cex= .5 ,err=-1 ,yl  im=c( 0,max( ?T(y) ) ) ) 

1  ines(c(?T(x)  ,?T(x),0),c(0,?T(  iy),?T(  iy))) 
mtextf  3  ide=2,  line=1,  outer=T,  "PDF") 
mtext( s ide= 1 ,1 ine=1 ,cex=2,outer=TRUE, 

"If  you  want  to  see  the  MLE  for  Lambda,  hit  Return 
when  GO?  appears.  I*'  not,  hit  the  Break  key") 

?T(11)  seq(0,2/?T(x),len=51) 

?T( yy )  ?dex1 ( ?T( x) ,?T( 11) ) 

?T(my)~?dex1(?T(x) , 1/?T(x) ) 

par(mfTow=c( 1 , 1 ) ,  oma=c(0,3,0,0) ) 

plot( ?T( 11) ,?T(yy) ,type="l",xlab="Lambda",ylab="", 

main="Max imum  Likelihood  for  Exponential  Distribution", 
subrencode( "Given  X  :",?T(x),"  When  L  =",1/?T(x), 

"L( L)  =",?T(my) ) ,cex= .5 ,err=-1 ,yl  im=c(0, 1 . 1*?T(my ) ) ) 
mtext(side.:2,  line=1,  outer=T,  "MLE") 

1  ines(c(?T(  1)  ,?TC  1)  ,0)  ,c(0,?T(  iy)  ,?T(  iy))) 
arrows( 1/?T(x) ,?T(my) , 1/?T(x) ,0) 
arrows( 1/?T( x) ,?T( my ) ,0,?T( my ) ) 

rm(?T(x) ,?T( 1) ,?T(xx) ,?T(y) ,?T(  iy) ,?T( 11) ,?T(yy) ,?T(my) ) 


MACRO  mleexp2( 

x/? PROMPT ( Random  Sample  X  :  )/, 
y/?PROMPT( Random  Sample  Y  :  )/, 
lm/?PR0MPT( Estimated  Lambda  :  )/) 

# 

#  This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  Exponential  d  istribution. (Sample  size  two) 

# 

({ 

par(mfhowsc(  1 , 1 ) ,  omasc(7, 0,0,0) ) 

?T(x)_x 
?T(y)_y 
?T( 1)  lm 

?T(xxT_seq( 0,2*(max(?T(x) ,?T(y) ) ) ,len=1 1 ) 

?T(d)  ?T(xx) [2]-?T(xx) [ 1 ] 

?T(xz7_?dex1 (?T(xx) ,?T(1) ) 

?T(xz)_matr ix(?T(xz) ,11,1) 

?T(yz)_t(?T(xz) ) 

?T(z)_?T(xz)**?T(yz) 

?T( z)  ?T(z)/max(?T(z) ) 

?T( iz7_?dex1 (?T(x) ,?T( 1) )*?dex1(?T(y ) ,?T(1)) 
persp(?T(z) ) 

t itle(main="PDF  for  Exponential  Distribution", 

encode("X(L)  =  Y(R)  :  [  0",?T(xx) [ 1 1 ] , "]  Increment  :", 
?T(d) ) ) 

mtext(side=1 ,1 ine=1 ,cex=2 ,outer=TRUE, 
encode( "Given  X  :",?T(x),"  Y  :",?T(y), 

"  When  Lambda  =",?T(1) ,"PDF  =",?T(iz))) 
mtext( s ideal ,1 ine=4,cex=2,outer=TRUE, 

"If  you  want  to  see  the  MLE  for  Lambda,  hit  Return 
when  GO?  appears.  If  not,  hit  the  Break  key") 
?T(ml)_2/(?T(x)+?T(y) ) 

?T(ll)_seq(0,2*?T(ml) ,len=51) 

?T(yy )_?dex1 (?T(x) ,?T( 11) )*?dex1 (?T(y) ,?T( 11) ) 

?T(my)_?dex1(?T(x),?T(ml))«?dex1(?T(y),?T(ml)) 

par(mfhow=c( 1 , 1 ) ,  oma=c(5,3,0,0) ) 

plot(?T( 11) ,?T(yy) , types "1" ,xlab= "Lambda" ,ylab=n" , 

mains"Max imum  Likelihood  for  Exponential  Distribution", 
cexs.5,errs-1 ,yl  imsc(0, 1 . 1*?T(my) ) ) 
mtext(  s  ides2,  linesi,  outersT,  "MLE") 
mtext(  s  idea  1 ,1  ine=0,cexs  .5 ,  outers  TRUE, 

encode(  "Given  X:",?T(x),"  Y:",?T(y),"  When  L  s", 

?T(ml) ,"  L(L)  s",?T(my) ) ) 

1  ines(  c(  ?T(  1)  ,?T(  1)  ,0)  ,c(  0,?T(  iz),?T(  iz ) ) ) 
arrows(?T(ml) ,?T(my) ,?T(ml) ,0) 
arrows(?T(ml) ,?T(my) ,0,?T(my) ) 

rm( ?T( x) ,?T(y) ,?T(1) ,?T(xx) ,?T(xz) ,?T(yz) ,?T(z),?T(  iz) ,?T(ml) , 
?T( 11) ,?T(yy) ,?T(my) ,?T(d) ) 
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MACRO  mlecunif( 

x/?PR0MPT( Random  Sample  X  (  Any  Integer  )  :  )/, 
y/?PROMPT( Random  Sample  Y  (  Any  Integer  )  :  )/, 

1/?PR0MPT( Est Mated  Lower  Bound  :  )/, 

u/?PROMPT( Estimated  Upper  Bound  (  U  >  L  )  :  )/) 

# 

#  This  Is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  Continuous  Uniform  distribution  with  unknown  parameter. 

# 

({ 

par(mfhow=c( 1 , 1 ) ,  oma=c(5, 0,0,0) > 

?T(x)_x 
?T(y)  y 

?T(rsJ_c(?T(x),?T(y)) 

?T( 1 ) _ 1 

?T(u)  u 

?T( bs7_max( ?T( rs) ) 

?T(ss)_min(?T(rs) ) 

?T(mx)_max(?T(bs) ,?T(u) )  +  2 
?T( mn)_m in( ?T( ss) ,?T(  1) )  -  2 
?T(px)  seq(?T(mx) ,?T(mn) ,len=10) 

?T(pmf7_1/(?T(u)-?T(l)) 

#  PMF  for  discrete  uniform  distribution  is; 

#  pmf  =  1 / ( upper  -  lower  +1) 

?T(px)_ifelse(  (?T(px)<=?T(u)  &  ?T( px) >=?T( 1)  ),?T(pmf),0) 
?T(px)_matr lx(?T(px) ,ncol=1) 

?T(py)_t(?T(px) ) 

?T(z)_?T(px)jC*?T(py) 

#  Joint  pmf  for  Independent  uniform  distribution  can  be  computed 

#  by  the  matrix  form. 

?T(pmf)_?T(  pmf)  *2 
?T( z)  ?T( z)/?T( pmf) 
perspT?T(z) ) 

?T(pmf)_ifelse(?T(l)<=?T(ss)  &  ?T(u)>=?T( bs) ,  ?T(pmf),  0) 
title( main=  "PMF  for  Continuous  Uniform  Distr ibution", 
sub=encode( "For  Given  Samples" ,?T( ss) ,?T( bs) , 

"When  Boundary  =  (",  ?T( 1) ,?T(u) , ")  PMF  =  ",?T(pmf))) 
if(?T(x)==?T(y) )  { 

print  ("When  X  =  Y,  Lower  Bound  =  Upper  Bound  at  X  or  Y")  } 
if(?T(x) !  =?T(y) )  { 

mtext(slde=l  ,1  lne=  1  ,cex=2,outersTRUE, 

"If  you  want  to  see  the  MLE  for  Upper/ Lower  Bound, 
hit  Return  when  GO?  appears.  If  not,  hit  the  Break  key") 
?T(u)_seq(?T(bs) ,?T(bs)+3,len=11) 
?T(l)“seq(?T(ss)-3,?T(ss),len=11) 

#  Select  "the  range  of  Upper  and  Lower  Bound 

?T(u)_rep(?T(u) ,rep(  11,11)) 

?T( 1)  rep(?T( 1) ,11) 

?T(pmf)_(  1/(?T(u)-?T(l)))"2 
?T(ml)_max(?T(pmf) ) 

?T(zz)~matr lx(?T(pmf) , 1 1 , 1 1 ,byrow=TRUE) 

?T( zz)  ?T( zz)/?T(ml) 


parCmft'owscC 1 , 1 ) ,  oma=c(5, 0,0,0)) 
persp(?T(zz) ) 

t  itle(  mains  "Max  imum  Likelihood  for  Continuous  Uniform  Distribution" 
subsencode( "For  Given  Samples", ?T( ss) ,?T( bs) ) ,cexs .5, errs-1 ) 
mtext(sides1 ,1  inesl  ,outersTRUE, 

encode("When  Boundary  s  ( ",?T( ss) ,?T( bs) ,")  L(P)  s",?T(ml))) 
rm(?T(ml) ,?T( zz) ) 

} 

rm( ?T(x) ,?T(y) ,?T( 1) ,?T(u) ,?T( rs) ,?T( bs) ,?T( ss) ,?T(mx) , 

?T(mn)  ,?T(  px)  ,?T(  pmf)  ,?T(  py)  ,?T(  z) ) 


MACRO  mlestgam 

({ 

item  c( "Sample  size  1", 

~  "Sample  size  2", 

"Go  to  Previous  Step") 
action_c(  "?mlestgam1", 
"?mlestgam2", 
"?mlecont") 
menu(  item  ,  action) 
rm(  item,  action) 


MACRO  mlestgamK 

x/?PROMPT( Random  Sample  X  (  X  >  0  )  :  )/, 
al/?PR0MPT( Estimated  Shape  Parameter  :  )/) 

# 

#  This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  Standard  Gamma  d  istr  ibut ion. ( Sample  size  one) 

# 

({ 

par(mfhowsc(  1 , 1 ) ,  oma=c(5,3,0,0)) 

?T(x)_x 
?T(  a)  al 

?T( xx7_seq( 0,2*?T(x) ,len= 101 ) 

?T(xx)  ?T(xx)[?T(xx)>0] 

?T(y)  dgamma(?T(xx) ,?T(  a) ) 

?T(  iyT_dgamma(?T(x)  ,?T(  a)) 

plot(?T(xx) ,?T(y) , types "l",xlabs"x-value",ylabs"", 
main=  "PDF  for  Standard  Gamma  Distribution", 
sub=encode( "For  Given  X  :",?T(x),"  When  Alpha  =",?T(a), 
"PDF  =",?T( iy) ) ,cex=.5,err=-1 ,yl  im=c( 0,max(?T(y) ) ) ) 
mtext(s ide=2,  line=1,  outer=T,  "PDF”) 

1  ines(c(?T(x)  ,?T(x)  ,0)  ,c(0,?T(  iy),?T(  iy))) 
mtext(side=1 ,1  ine=1 ,cex=2,outer=TRUE, 

"If  you  want  to  see  the  MLE  for  Alpha,  hit  Return 
when  GO?  appears.  If  not,  hit  the  Break  key") 

?T(  ea)_max( ?T( a) ,?T(x)) 

?T( ea)_seq(0,2*?T(ea) , len=101 ) 

?T(k)_0 

# 

#  Repeatation  will  be  made  until  reasonable  precise  MLE  for 

#  Shape  parameter  can  be  obtained.  Since  it  is  not  possible  to 

#  compute  the  MLE  parameter,  the  repeatation  by  the  graphic  is 

#  done. 

# 

for  (  i  in  1:10)  { 

?T(k)  ?T( k)+1 

?T(  eaT_?T(  ea)  [?T(  ea)  >0] 

?T(yy)_dgamma(rep(?T(x) ,len(?T(ea)) ) ,?T(ea) ) 
?T(sa)_min(?T(ea) ) 

?T( ba)_max( ?T( ea) ) 

?T(  sy  )_m  in(  ?T(  yy) ) 

?T(my)_max(?T(yy) ) 

?T(po)“( 1:len(?T(yy)))t?T(yy)==?T(my)] 

?T(ma)_?T(ea)[?T(po) ] 

par(mfrow=c( 1 , 1 ) ,  oma=c(5,3,0,0) ) 

plot(?T( ea) ,?T(yy ) , types "1" ,xlab=" Alpha", ylab="" , 

mains"Max  imum  Likelihood  for  Standard  Gamma  Distribution 
subsencode( "For  Given  X  :",?T(x),"  When  A  =",?T(ma), 

"L(  A)  s",?T(my) ) ,cexs.5,errs-1 ,yl imsc(?T(sy) ,?T(my) ) , 
xl  imsc(?T(sa),?T(ba))) 
mtext(sides2,  linesl,  outersT,  "MLE") 
if  ( ?T( k)ss 1 )  { 

1  ines(  c(  ?T(  a)  ,?T(  a)  ,0)  ,c(0,?T(  iy),?T(  iy))) 


arrows(?T(ma) ,?T(my) ,?T(ma) ,?T( sy) ) 
arrows(?T(ma) ,?T(my) ,?T( sa) ,?T(my) ) 

?T( ea)  seq(?T(ea) [max( 1 ,?T(po) [ 1 ]-5) ] , 

?T(ea)Tmin( 101 ,?T(po) Clen(?T(po) ) 3+5) ] ,len= 101 ) 

} 

#  To  divide  the  interval  more  precisely,  the  range  will  be 

#  narrowed  down. 

# 

if  ( ?T( k)< 10)  { 

mtext(  side=1 ,1  ine=1  ,cex=2,outer=TRUE, 

"If  you  want  to  see  the  MLE  for  Alpha  more  precisely, 
hit  Return  when  GO?  appears.  If  not,  hit  the  Break  key") 
} 

rm(?T(yy) ,?T(sa) ,?T(ba) ,?T( sy) ,?T(my) ,?T(po) ,?T(ma) ) 


rm(?T(x) ,?T( a) ,?T(xx) ,?T(y) ,?T( iy) ,?T( ea) ,?T( k) ) 


MACRO  mlestgam2( 

x/?PROMPT( Random  Sample  X  (  X  >  0  )  :  )/, 
y/?PROMPT( Random  Sample  Y  (  Y  >  0  )  :  )/, 
al/?PR0MPT( Estimated  Shape  Parameter  :  )/) 

# 

#  This  is  a  Macro  to  plot  the  maximum  likelihood  estimate 

#  for  Standard  Gamma  d  istribut ion. (Sample  size  two) 

# 

({ 

par(mft*ow=c( 1 , 1) ,  oma=c(5, 0,0,0) ) 

?T(x)_x 
?T(y)_y 
?T(  a)~al 

?T( xxT_seq( 0 , 2*?T( x) , len= 1 1 ) 

?T(xx)_?T(xx)[?T(xx)>0] 

?T(yy)_seq(0,2«?T(y),len=1 1) 

?T(yy)_?T(yy)t?T(yy)>0] 

?T(xz)_dgamma(?T(xx)  ,?T(  a) ) 

?T(yz)_dgamma( ?T( yy) ,?T( a) ) 

?T(xz)_matrix(?T(xz) ,10, 1) 

?T(yz)_matr ix(?T(yz) ,1,10) 

?T(z)_?T(xz)**?T(yz) 

?T( z)  ?T( z)/max(?T( z) ) 

?T(  iz7_dgamma(?T(x)  ,?T(  a)  )*dgamma(?T(y)  ,?T(  a) ) 
persp(?T(z)) 

title( main=  "PDF  for  Standard  Gamma  Distribution", 

sub=encode( "For  Given  X  :",?T(x),"Y  :",?T(y),n  When  Alpha 
?T( a) , "PDF  =",?T(  iz))) 
mtextC  s  ide=1 ,1 ine=1 ,cex=2,outer=TRUE, 

"If  you  want  to  see  the  MLE  for  Alpha,  hit  Return 
when  GO?  appears.  If  not,  hit  the  Break  key") 

?T( ea)_max( ?T( a) ,(?T(x)+?T(y ) )/2) 

?T( ea)_seq( 0,2*?T(  ea) , len= 101 ) 

?T(k)_0 

# 

#  Repeatation  will  be  made  until  reasonable  precise  MLE  for 

#  Shape  parameter  can  be  obtained.  Since  it  is  not  possible  to 

#  compute  the  MLE  parameter,  the  repeatation  by  the  graphic  is 

#  done. 

# 

for  (  i  in  1:10)  { 

?T( k)  ?T(k)+1 

?T(  ea7_?T(  ea)  [?T(  ea)  >0] 

?T( ly)_dgamma( rep(?T(x) , len(?T( ea) ) ) ,?T( ea) )* 
dgamma(  rep(?T(y)  ,len(?T(  ea) ) )  ,?T(  ea) ) 

?T(sa)  min(?T(ea)) 

?T(  ba)_max(?T(  ea) ) 

?T( sy )  m in(?T( ly) ) 

?T(my)_max( ?T( ly) ) 

?T( po)_( 1 :len(?T( ly ) ) ) T ?T( ly)==?T(my) ] 

?T(ma)_?T(  ea)  [?T(  po)  ] 
par(mfhowrc(  1,1),  oma=c( 5 , 3,0,0) ) 


plot(?T(ea) ,?T(ly) , types "1" ,xlab=" Alpha" ,ylabs"" , 

mains"Max  imum  Likelihood  for  Standard  Gamma  Distribution", 
subsencode(  "Given  X  :",?T(x),"  Y  :",?T(y),"  When  A  =", 
?T(ma) ,"L( A)  =",?T(my) ) ,cex= .5,err=-1 ,yl  im=c(?T( sy) ,?T(my) ) 
xl  im=c(?T(  sa)  ,?T(  ba) ) ) 
mtext( side=2,  line=1,  outer=T,  "MLE") 
if  (?T(k)==1 )  { 

1  ines(c(?T(  a),?T{  a) ,0) ,c( 0,?T{  iz),?T(  iz))) 

} 

arrows(?T(ma) ,?T(my) ,?T(ma) ,?T( sy) ) 
arrows(?T(ma),?T(my) ,?T( sa) ,?T(my)) 

?T(ea)  seq(?T(ea)[max( 1 ,?T( po) [ 1 ]-5 ) ] , 

?T(ea)Imin( 101 ,?T( po) [ len(?T( po) ) 1+5) ] , len= 101 ) 

# 

#  To  divide  the  interval  more  precisely,  the  range  will  be 

#  narrowed  down. 

# 

if  (?T(k)< 10)  { 

mtext( side= 1 ,1 ine=1 ,cex=2,outer=TRUE, 

"If  you  want  to  see  the  MLE  for  Alpha  more  precisely, 
hit  Return  when  GO?  appears.  If  not,  hit  the  Break  key") 

} 

rm(?T(ly) ,?T( sa) ,?T( ba) ,?T( sy ) ,?T(my) ,?T( po) ,?T(ma) ) 

} 

rm(?T(x) ,?T( a) ,?T( xx) ,?T(y) ,?T(yy ) ,?T(  iz) ,?T( ea) ,?T( k) , 
?T(xz),?T(yz),?T(z)) 
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MACRO  tran 

# 

#  This  MAcro  Is  to  select  univariate  or  bivariate 

#  distribution  for  transformation. 

# 

({ 

item_c(  "Univariate  distribution", 

"Bivariate  distribution") 
action_c(  "?uvtran" , 

"?bvtran") 
menu (  item,  action) 
rm(  item,  action) 

}) 

END 


MACRO  uvtran 

({ 

?MESSAGE( ) 

?MESSAGE( Type  of  D istr ibut ion  :) 
?MESSAGE( ) 

item_c(  "Discrete  Distr  ibut  ion", 
"Continuous  Distribution") 
ac  t  ion_c(  "?  trb  in" , 

"?trcont") 
menu(  item,  action) 
rm(  item,  action) 
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MACRO  trcont 

<{ 

?MESSAGE( ) 

?MESSAGE(Type  of  Distr  Ibutlon  :) 

?MESSAGE( ) 

item_c(  "Standard  Normal  Distribution 
~  "Normal  Distribution", 

"Uniform  Distribution", 

"Lognormal  Distribution", 

"Exponential  Distribution", 

"Gamma  Distribution", 

"F  Distribution", 

"T  Distribution", 

"Weibull  Distribution", 

"Chisquare  retribution") 
ac t ion_c( "?  trstnorm  - , 

"?trnorm", 

"?  trun  if" , 

"?  trlnorm" , 

"?trexp", 

"?trgamma", 

"?trf", 

"?  trt" , 

"?trweib", 

"?trchisq") 
menu(  item,  act  ion) 
rm(  item,  action) 


MACRO  trbin( 

av/?PROMPT( Coefficient  of  X*2  :  )/, 

bv/?PROMPT( Coefficient  of  X  :  )/, 

cv/?PROMPT(Coef  of  Constant  :  )/, 

nv/?PROMPT( Number  of  Trial  :  )/, 

pv/?PROMPT( Prob  of  Success  :  )/) 

({ 

?MESSAGE( ) 

?MESSAGE( B inom ial  distribution  will  be  transformed) 

?MESSAGE(w ith  Y  =  a  X*2  +  b  X  +  c  form.  ) 

?MESSAGE( Please  enter  the  transform  equation.) 

?MESSAGE( ) 

# 

#  Transform  the  input  to  the  aX“2+bX+x  form. 

4 

a_av 

as_ifelse(a>=0, 

b_bv 

bs_ifelse(b>=0, 

d_cv 

ds_  ifelse(d>=0, ) 

?MESSAGE( ) 

?MESSAGE( Please  enter  the  parameters  for  Binomial  distribution.) 
?MESSAGE( ) 

4 

4  Binomial  parameters 
4 

n_nv 
p_pv 
x_0  :n 

trseq  encode("Y  =  ", a, "X~2" ,bs, abs( b) ,ds, abs(d) ) 
y__a*x’r 2+b*x+d 
4 

4  Compu  te  the  pm  f  for  b  inom  ial  d  is  tr  ibu  t  ion 

4 

b  in_?mb in(x,n,p) 

# 

#  If  same  y  exists  for  different  x,  the  pmf  for  y  is 
4  sum  of  the  pmf  for  different  x. 

4 

ymjnatr ix(y,len(y) ,len(y) ,byrow=TRUE) 
ym_ifelse(ym==y,  1 ,0) 
yr_?row(ym,sum) 
ix_?which(yr!  =  1) 
yb  in  b  in 

for  T  i  in  ix  )  { 

ybinti]  sum(  b  in[?which(ym[  i,  3==1)]  ) 

} 
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#  Plot  the  relationship  between  x  and  y 

# 

par(ofhow=c( 1 ,2) ,  omasc(7, 0,5,0)  ) 
plot(x,y, types"h",xlabs"X",ylabs"Y",  err=-1 ) 
plot(y ,x, types "h" ,.xlabs"Y" ,ylabs"X",  errs-1 ) 
mtext(  sides3,l  inesO,outersTRUE, 

"Transform  of  Binomial  Variable") 
mtext(  s  ide=1 ,1  inesO, outers TRUE,  trseq) 
mtext(  s  ides  1,1  ines2,outersTRUE, 

"Hit  Return  for  Transform  of  PMF,  when  GO?  appears") 

# 

#  Plot  x  vs.  pmf 

# 

par(omasc(4,3,3,0)) 

plot(x,b in, types "h",xlabs"X" ,ylabs"",  errs-1 , 
subsencode( "B inom ial  with  N  :",n,"P  :",p), 
xl  imsc( -1  ,max(x)  +  1 ) ,yl  imsc(0,max( bin,ybin)*1.01)) 

Plot  y  vs.  pmf 

plot(y,yb  in,types"h",xlabs"Y",ylabs"",  substrseq,  errs-1, 
xl  imsc(min(y)-1  ,max(y)+1 )  ,yl  imsc(0,max(yb in,bin)*1.01)) 
mtext( s  ides2,l  ine= 1 .outers TRUE, "PMF") 
mtext(  s  ides3,l  inesO, outersTRUE, 

encodeC  "Transform  of  Binomial  variable  ", trseq)) 
m  tex  t(  s  ides  1 , 1  ines  1 ,  ou  ters  TRUE , 

"This  is  overall  picture  fof  transform  of  binomial,  if  you  want 
to  see  the  picture  one  by  one,  keep  going  on  hitting  Return 
when  GO?  appears  until  you  hit  Break  key.") 

# 

#  Plot  iterative  picture 

# 

for(  i  in  1  :len(x) )  { 
par(omasc(5 , 3,5,0)) 

# 

#  Plot  cumulative  x  and  their  pmf 

# 

plot(x[  1 :  i]  ,b  in[  1 :  1] ,  types "h" ,xlabs"X",ylabs"", 

subsencode( "B inom  ial  with  N  :",n,"P  :",p),  errs-1, 
xl  imsc(-1  ,x[  i]+1 )  ,yl  imsc(  0,max(  b  in[  1 :  i]  ,yb  in[  1 :  i] )*  1 .01 ) ) 

# 

#  Indicate  the  current  plot 

# 

po  ints(  x[  i]  ,b  in[  i] ) 

# 

#  Plot  cumulative  y  and  their  pmf 

# 

plot(y[  1 :  i] ,yb  inC  1 :  i] ,  types "h",xlabs"Y",ylabs"”, 

subsencode(  "Y  s",  as,  abs<  a) ,  "X<'2",bs,  abs(  b) ,  "X",ds,  abs(  d) ) , 

xl  imsc(m  in(y[  1 :  i]  )-1  ,max(y[  1 :  i]  )  +  1 ) , 

yl  imsc(  0,max(yb  in[  1 :  i] ,b  in[  1 :  i] )*  1 .01 ) ,  er”s-i ) 
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#  Indicate  the  current  plot 

# 

points(y[  i],ybin[  i]) 

mtext(side=2,l  inesl  ,outer=TRUE,'*PMF") 
mtext( s ide=3 *1 ine=1 ,outer=TRUE, 

encode( "Transform  of  Binomial  Distribution  "jtrseq)) 
mtext(sides1 ,1  inesl  ,outer=TRUE, 

encodeC "When  X  =  ",x[  i] ,"PMF  =  ",bin[i],"  Y  =",y[i], 
"PMF  =",ybin[  i])) 

} 

rm(  a,b,d,p,n,y,b  in,yb  in,x,ym,yr, ix, as.bs.ds, trseq) 
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MACRO  trstnorm( av/?PROMPT( A  :  )/, 
bv/?PROMPT(B  :  )/, 
y1/?PROMPT( Star ting  Y  :  )/, 

y2/?PROMPT( Ending  Y  :  )/) 

({ 

?MESSAGE{ ) 

?MESSAGE(  Trans  form  willbeY=aX  +  b) 

?MESSAGE( Please  enter  a  and  b  value.) 

?MESSAGE( Note  :  Parameter  a  should  not  be  0.) 

?MESSAGE( ) 

?T(  a)_av 
?T(b)_bv 

title1_"Transform  of  Standard  Normal  Variable  with  Y  =  a  X  +  b" 
t itle2_encode( "A  :",?T(a),"  B  :",?T(b)) 
subject_c( titlel ,  title2) 

? MESSAGE ( ) 

?MESSAGE( Please  enter  input  about  y.) 

?MESSAGE( ) 

?T(y)_seq(y1 ,y2,  len=51) 

?T(x)_(?T(y)-?T(b))/?T(  a) 

# 

#  The  pdf  for  transformed  variable  can  be  computed  as 
4  g(y)  =  f(  (y-b)/a  )  *  1/a 

4 

?T( t)_dnorm( ( ?T(y)-?T( b) )/?T( a) )/?T( a) 

# 

4  The  pdf  for  original  variable,  which  is  standard  normal 

#  distribtion. 

# 

?T( z)_dnorm( ?T(x) ) 

4 

4  Call  macro  to  plot  y  =  a  X  +  b 
4 

?1  inear tran1(3ubject,?T(y) ,?T(x) ) 

# 

#  Call  macro  to  plot  pdf  transformation 

4 

?1  ineartran2(  subject,  ?T(y)  ,?T(x)  ,?T(  t),?T(z)) 

rm( ?T( x) ,?T(y ) ,?T( t) ,?T( z) ,?T( a) ,?T( b) ,  subject,  titlel,  title2) 

}) 

END 
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MACRO  lineartranKsubj,  y,  x) 

({ 

par(mfbow=c( 1 ,2) ,  oma=c(  3, 0,2,0) ) 
plot(x,y,  type="l",  xlab="X",  ylab="Y",  err=-1) 
plot(y,x,  type="l",  xlab="Y",  ylab="X",  err=-1) 
mtext( side=3,  1  ine=0 ,  outer=T, 
encode(subj[1])) 
mtext(  sides  1 ,  line=0,  outersT, 
encode( subj[2] ) ) 

}) 

END 


MACRO  lineartran2(subj,y,x,t,z) 

({ 

par(mfi'ow=c(  1 ,2) ,  oma=c(  3,3,3»0>) 
my_max( t,z) 

plot(y,t,  xlabs"Y”,  ylabs"",  type="l",  ylim=c(0,my) 
err=-1 ) 

plot(x,z,  xlab="Xn,  ylabs"",  type="l",  ylim=c(0,my) 
err=-1 ) 

mtext(side=3»  llnesl,  outersT, 
encode(subj[ 1])) 

mtext(side=2,  lJnesI,  outersT,  "PDF") 
mtext(side=1,  linesl,  outeraT, 
encode(subj[2])) 
rm(my) 

1) 

END 


MACRO  trnorm( 

mv/?PROMPT(Mean  for  X  :  )/, 

av/?PROMPT( Std  Dev  for  X  :  )/) 

({ 

?T(m)_mv 

?T(s)“sv 

titleT  "Transform  of  Normal  Variable" 
t itle2~encode( "Mu  :",?T(m),"  S  :",?T(s)) 
subject_c( titlel ,  title2) 
para_c(?T(m)  ,?T( s) ) 

?MESSAGE( ) 

?MESSAGE( Normal  variable  is  defined  only  in  X  >  0  for  transform  2,) 
?MESSAGE( and  X  >=  0  for  transform  4.) 

?MESSAGE( Please  enter  proper  range  of  Y  if  you  choose  one  of  them.) 
?MESSAGE( ) 

?MESSAGE( Type  of  Transformation  :  ) 

?MESSAGE( ) 
item_c("y  =  x~2", 

"y  =  log  (x)", 

"y  =  exp  (x)", 

"y  z  sqrt  (x)") 

action_c( "? tr In t( norm, par a, subject)", 

"?  tr2 ( norm , p  ar  a, subject)", 

"?tr 3 (norm, par a, subject)", 

"?tr4( norm, par a, subject)") 
menu(  item,  act  ion) 

rm(?T(m)  ,?T(s) ,  titlel  ,title2,  item, action) 

}) 

END 
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MACRO  trunifX 

lb/?PROMPT( Lower  Bound  :  )/, 

ub/?PROMPT( Upper  Bound  :  )/) 

({ 

lower_lb 
upper  ub 

para_c( lower, upper) 

title1_"Transform  of  Uniform  Variable" 
title2_encode( "LB  lower,"  UB  :", upper) 
subject  e(title1,  title2) 

? MESSAGE ( ) 

?MESSAGE( Type  of  Transformation  :  ) 

?MESSAGE( ) 
item_c("y  =  x~2", 

"y  =  log  (x)", 

"y  =  exp  (x)", 

"y  =  sqrt  (x)") 

action_c( "?unifins1(  (max( 0, lower, -upper )) '2, 

(max(upper, -lower) )*2  )  ; 

? tr 1u( subject, par a, (max(0, lower, -upper )) “2, 

(max( upper, -lower) )*2) ", 

"?unifins2(  log(max( lower, 0.00001 )) ,  log(upper)) 
?tr2(un  if,  par  a,  subject)", 

"?unifins2(exp( lower),  exp( upper))  ; 

?tr3(un  if,  par  a,  subject)", 

"?un if ins2( sqrt(max( lower, 0) ) ,  sqrt( upper))  ; 
?tr4(un  if,  par  a,  subject)") 
menu(  item,  action) 
rmCtitlel,  title2,  action,  item) 
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MACRO  trlnorm( 

mv/?PROMPT(Mean  for  X  :  )/, 

sv/?PR0MPT( Std  Dev  for  X  :  )/) 

({ 

?T(m)_mv 

?T(s)“sv 

title  1  "Transform  of  Lognormal  Variable" 
t itle2~encode( "Mu  :",?T(m),"  S  :",?T(s)) 
sub jecT_c( title  1 ,  title2) 
para__c(?T(m)  ,?T(  s) ) 

?MESSAGE( ) 

?MESSAGE(  Lognormal  variables  are  defined  only  X  >  0.) 
?MESSAGE(  Please  enter  proper  range  of  Y  for  desired  result.) 
?MESSAGE( ) 

?MESSAGE(Type  of  Trans  format  ion  :  ) 

?MESSAGE( ) 
item_c("y  =  x~2", 

"y  =  log  (x)", 

"y  =  exp  (x)", 

"y  =  sqrt  (x)") 

action_c("?tr1(  lnorm,  para,  subject)", 

"? tr2( lnorm, par  a, subject) " , 

"? tr3( lnorm, para, subject)", 

"TtrM  lnorm,  par  a,  subject)  ") 
menu(  item,  act  ion) 

rm(?T(m)  ,?T(s)  ,title1  ,title2,  item,  act  ion) 

}) 

END 
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MACRO  trexp( 

lm/?PROMPT( Lambda  for  X  :  }/) 

({ 

?T(l)_lm 

titleT  "Transform  of  Exponential  Variable" 
t  itle2~encode( "Lambda  :",?T(1)) 
subject  c(title1,  title2) 
para_?TTl) 

?MESSAGE( ) 

?MESSAGE(  Exponential  variables  are  defined  only  X  >  0.) 
?MESSAGE(  Please  enter  proper  range  of  Y  for  desired  result.) 
? MESSAGE ( ) 

?MESSAGE(  Type  of  Trans  format  ion  :  ) 

? MESSAGE ( ) 
item_c("y  =  x~2n, 

"y  =  log  (x)", 

"y  =  exp  (x)", 

"y  =  sqrt  (x)") 

action_c("?ttr1(ex1 , par a, subject)", 

"?ttr2(ex1 , para, subject)", 

"?ttr3(ex1 , para, subject)", 

"?ttr4(ex1 , para, subject) ") 
menu(  item, act  ion) 

rm( ?T(  1)  ,title1  ,title2,  item, action) 


MACRO  trgamma( 

sh/?PR0MPT( Parameter  alpha  :  )/) 

(t 

?T(n)_sh 

title1_"Transform  of  Std.  Gamma  Variable" 
t itle2_encode( "Alpha  :",?T(n)) 
subject  c(title1,  title2) 
para  ?Tln) 

?MESSAGE( ) 

?MESSAGE(  Gamma  variables  are  defined  only  X  >  0.) 

?MESSAGE(  Please  enter  proper  range  of  Y  for  desired  result.) 
?MESSAGE( ) 

?MESSAGE( Type  of  Transformation  :  ) 

?MESSAGE( ) 
item_c("y  =  x*2", 

"y  =  log  (x)", 

"y  =  exp  (x)", 

"y  =  sqrt  (x)") 

act  ion_c(  "?  tr  1  (gamma, para,  sub  jec  t) " , 

“  "?tr2(gamma, para,  subject)", 

"?  tr3(gamma,para,  sub  ject)  ", 

"?  tr4(gamma,para,  sub  jec  t) " ) 
menu(  item, act  ion) 

rm(  ?T(n) ,  t  itlel ,  t  itle2,  item,  act  ion) 

}) 

END 
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MACRO  trf( 

nd/?PROMPT( DF  for  Numerater  :  )/, 
dd/?PROMPT( DF  for  Denominator  :  )/) 

({ 

?T( n)_nd 
?T(d)_dd 

title1_"Transform  of  F  Variable" 
t itle2_encode( "DF  1  :",?T(n),"  DF  2  :",?T(d)) 
subject_c( t itlel ,  tltle2) 
para_c( ?T( n) ,?T( d) ) 

?MESSAGE( ) 

?MESSAGE(  F  variables  are  defined  only  X  >  0.) 

?MESSAGE(  Please  enter  proper  range  of  Y  for  desired  result.) 
?MESSAGE( ) 

?MESSAGE( Type  of  Transformation  :  ) 

?MESSAGE( ) 
item_c("y  =  x~2", 

"y  =  log  (x)"> 

"y  =  exp  (x)". 


"y  =  sqrt  (x)", 

"y  =  a  X  +  b") 

act  ion_c(  "?  trl  (  f,para, subject) " , 

~  "?tr2(  f,para, subject)", 

"?tr3(  f,para,subject)n, 

"?tr4(  f, para, subject)", 

"?  tr  fl  ine(  para)  ") 
menu(  item,  act  ion) 

rm(?T(n)  ,?T(d)  ,title1  ,title2,  item, action) 

}) 

END 


MACRO  trfl  ine(dof, 
av/?PROMPT( A  :  )/, 
bv/?PROMPT( B  :  )/, 
y1/?PROMPT( Star  ting  Y  :  )/, 

y2/?PROMPT( Ending  Y  :  )/) 

({ 

? MESSAGE  ( ) 

?MESSAGE(  Trans  form  will  be  Y  =  a  X  +  b) 

?MESSAGE( Please  enter  a  and  b  value.) 

?MESSAGE( Note  :  Parameter  a  should  not  be  0.) 

? MESSAGE ( ) 

?T(  a)_av 
?T(b)_bv 

title1_"Transform  of  Chisquare  Variable  with  Y  =  a  X  +  b" 
t itle2_encode( "D.F.  1  :",dof[1],"  D.F.  2  :",dof[2],"  A 
?T( a) , "  B  : "  ,?T( b) ) 
sub jec t_c( title  1,  title2) 

?MESSAGE( ) 

?MESSAGE( Please  enter  input  about  y.) 

?MESSAGE( ) 

?T(y)_seq(y1 ,y2,  len=51) 

?T(x)_(?T(y)-?T(b) )/?T(  a) 

# 

#  To  avoid  floating  in  S  computation,  zero  f  variable 
4  is  eliminated. 

if 

?T(x)_?T(x)[?T(x) !=0] 

?T(y)_?T(y)[?T(y)!=?T(b)] 

4 

4  The  pdf  for  transformed  variable  can  be  computed  as 
4  g(y)  =  ft  (y-b)/a  )  «  1/a 

4 

?T(  t)_d  ft  ( (?T(  y  )-?T(  b)  )/?T(  a) ) ,  doftl],  dof[2]  )/?T(  a) 

# 

#  The  pdf  for  original  variable,  which  is  F  distribtion. 

4 

? T(  z  )_d  ft  ? T(  x ) ,  do  ft  1  ] ,  do  ft  2  ] ) 

4 

4  Call  macro  to  plot  y  ?  a  X  +  b 

# 

?1 inear tr an  1 ( sub ject,?T(y) ,?T( x) ) 

4 

4  Call  macro  to  plot  pdf  transformation 

# 

?1  inear tran2( subject,?T(y) ,?T(  x) ,?T(  t) ,?T(  z) ) 

rm(?T(x) ,?T(y) ,?T( t) ,?T(z) ,?T( a) ,?T(b) ,  subject,  titlel,  title2) 


MACRO  trt( 

df/?PROMPT( Degree  of  Freedom  :  )/) 

({ 

?T(  f)_df 

title  1  "Transform  of  T  Variable" 
title2~’encode(  "Degree  of  Freedom  :",?T(f)) 
subject  c(title1,  title2) 
para_?fTf) 

?MESSAGE( ) 

?MESSAGE(T  variable  is  defined  only  in  X  >  0  for  transform  2,) 
?MESSAGE( and  X  >=  0  for  transform  4.) 

?MESSAGE( Please  enter  proper  range  of  Y  if  you  choose  one  of  them.) 
?MESSAGE( ) 

?MESSAGE(  Type  of  Trans  format  ion  :  ) 

?MESSAGE( ) 
item_c("y  =  x~2", 

"y  =  log  (x)", 

"y  =  exp  (x)", 

”y  =  sqrt  (x)") 

action  c(  "?tr1nt(  t, para, subject)", 

"?tr2( t, para, subject)", 

"?tr3( t, para, subject)", 

"?tr4(  t,para,subject) ") 
menu(  item,  act  ion) 

rm(?T(  f)  .titlel  ,title2,  item, action) 

}) 

END 
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MACRO  trweib( 

sh/?PROMPT( Shape  parameter  :  )/, 

sc/? PROMPT( Scale  parameter  :  )/) 

({ 

?T(n)_sh 

?T(d)_sc 

title1_"Transform  of  Weibull  Variable" 
title2_encode(  "Shape  :",?T(n),"  Scale  :",?T(d)) 
subject  c(title1,  title2) 
para_c(?T(n) ,?T(d) ) 

?MESSAGE( ) 

?MESSAGE(  Weibull  variables  are  defined  only  X  >  0.) 

?MESSAGE(  Please  enter  proper  range  of  Y  for  desired  result.) 
?MESSAGE( ) 

?MESSAGE(Type  of  Transformation  :  ) 

?MESSAGE( ) 
item_c("y  =  x~2", 

"y  =  log  (x)", 

"y  =  exp  (x)", 

"y  =  sqrt  (x)") 

act  ion_c(  "?  ttrl  (we  ib,  par  a,  subject) ", 

"?ttr2(we  ib,  par  a,  subject)", 

"?ttr3(we  ib,  par  a,  subject)", 

"? ttr4(we ib, par a, subject)") 
menu(  item, act  ion) 

rm(?T(n)  ,?T(d) ,  t  itlel ,  t itle2,  item,  action) 

}) 

END 
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MACRO  trchisq( 

df/?PR0MPT(  Degree  of  Freedom  :  )/) 

({ 

?T(d)_df 

titlel  "Transform  of  Chisquare  distribution  Variable" 
title2~encode(  "DF  :",?T(d)) 
subjecT  c(  titlel,  title2) 
para_?TTd) 

?MESSAGE( ) 

?MESSAGE(  Chisquare  variables  are  defined  only  X  >  0.) 
?MESSAGE(  Please  enter  proper  range  of  Y  for  desired  result.) 
?MESSAGE( ) 

?MESSAGE( Type  of  Transformation  :  ) 

?MESSAGE( ) 
item_c("y  =  x~2", 

"y  =  log  (x)", 

"y  =  exp  (x)", 

"y  =  sqrt  (x)", 

"y  =  a  X  +  b") 

action_c(  "?tr1(chisq,  par  a,  subject)", 

"?tr2(chisq,  par  a,  subject)", 

"?tr3(chisq,  par  a,  subject)", 

"?tr4(chisq,  par  a,  subject)", 

"?trchl  ine(para)") 
menu(  item, act  ion) 

rm(?T(d) , t itlel , t itle2, item, act  ion) 


)) 

END 


MACRO  trchl  ine(df, 
av/?PROMPT( A  :  )/, 
bv/?PROMPT(B  :  )/, 
y1/?PROMPT( Starting  Y  :  )/, 

y2/?PR0MPT(  Ending  Y  :  )/) 

(t 

?MESSAGE( ) 

?MESSAGE(  Trans  form  will  be  Y  =  a  X  +  b) 

?MESSAGE( Please  enter  a  and  b  value.) 

?MESSAGE( Note  :  a  should  not  be  0.) 

?MESSAGE( ) 

?T(  a)_av 
?T( b)~bv 

titleT_"Transform  of  Chisquare  Variable  with  Y  =  a  X  +  b" 
title2_encode(  "D.F.  :",df,"  A  :",?T(a),"  B  :",?T(b)) 
subject  c(title1,  title2) 

? MESSAGE ( ) 

?MESSAGE( Please  enter  input  about  y.) 

? MESSAGE ( ) 

?T(y)_seq(y1 ,y2,  len=51) 

?T(x)_(?T(y)-?T(b) )/?T( a) 

# 

#  To  avoid  floating  in  S  computation,  zero  chisquare  variable 

#  is  eliminated. 

# 

?T(x)_?T(x)[?T(x) !=0] 

?T(y)~ ?T(y)[?T(y) !=?T(b) ] 

# 

#  The  pdf  for  transformed  variable  can  be  computed  as 

#  g(y)  =  f(  (y-b)/a  )  »  1/a 

# 

?T(  t)_dchisq(((?T(y)-?T(b))/?T(  a) )  ,df)/?T(  a) 

# 

#  The  pdf  for  original  variable,  which  is  Chisquare  distribtion. 

# 

?T(z)_dchisq(?T(x)  ,df) 

# 

#  Call  macro  to  plot  y  =  a  X  +  b 

f 

?1  ineartranK  subject, ?T(y)  ,?T(x) ) 

# 

#  Call  macro  to  plot  pdf  transformation 

# 

?1  inear  tran2(  sub  ject,?T(y)  ,?T(x)  ,?T(  t)  ,?T(z)) 

rm( ?T( x) ,?T(y ) ,?T( t) ,?T( z) ,?T( a) ,?T( b) ,  subject,  titlel,  title2) 

}) 


MACRO  trl (d  is, para, subject, 
sp/?PROMPT( Starting  Pt  for  Y  :  )/, 
ep/?PR0MPT( Ending  Pt  for  Y  :  )/, 

dv/?PR0MPT( Increment  for  Y  :  )/) 

# 

#  This  Macro  Is  to  compute  the  hight  of  transformed  variable, 

#  which  Is  the  estimated  PDF  for  the  transformed  variable, 

#  when  the  transformation  Is  y=x*2  and  it  has  pdf  and  cdf 

#  function  in  S. 

It  And  such  distribution  as  normal  or  t  can  not  use  this  macro, 

#  Instead  use  other  one  named  trlnt,  since  not  only  positive 

#  X  value  but  also  negative  X  value  should  be  considered. 

# 

({ 

?T(  b)_sp 
?T( e)_ep 
?T(d)_dv 
np  len(para) 

?T"Cy)_seq(?T(b)  ,?T(e)  ,?T(d) )  #  Y  :  Y  range  [b  e] 

?T(x)_sqrt(?T(y) )  #  X  :  Transformation 

?T(n)~len(?T(y) )  #  N  :  length  of  Y 

?T(l)_4«?T(n)-3 
maxy_max(?T(y) ) 

?T(py)_seq(?T(  b)  ,maxy,len=?T(  1) )  #  PY  :  Y  with  small  interval 

?T(yy)_seq(?T(b) ,maxy,len=51 )  #  YY  :  Y  for  Plot 

?T( px)_sqrt(?T( py ) )  #  PX  :  X  for  PY 

?T(xx)_sqrt(?T(yy) )  #  XX  :  X  for  YY 

* 

#  If  given  distribution  has  function  and  1  parameter 

# 

if(  np  ==  1)  { 

?T(pd)_?(d)d  is(?T(x) ,para[ 1 ] )  #  PD  :  PDF  for  X 

?T(  tt)J?(d)dis(?T(xx),para[1])  #  TT  :  PDF  for  XX 
?T(  td)_?(d)d  is(?T(px)  ,para[1])  #  TD  :  PDF  for  PX 
?T(cd)_?(p)d  is(?T(x)  ,para[  1  ])  #  CD  :  CDF  for  X 

}  else  { 

# 

#  If  given  distribution  has  function  and  2  parameter 

# 

?T(pd)  ?(d)dis(?T(x),para[1],para[2])  #  PD  :  PDF  for  X 

?T(  tt)_?(d)d  is(?T(xx)  ,para[  1  ]  ,para[2] )  #  TT  :  PDF  for  XX 

?T( td)_?(d)d is(?T(px) ,para[ 1 ] ,para[2] )  #  TD  :  PDF  for  PX 

?T(cd)  ?(p)dis(?T(x),para[1],para[2])  #  CD  :  CDF  for  X 

} 

# 

#  Area  between  Yt  i]  and  Y[i+1] 

# 

?T( ay)  ?T(cd) [2:?T(n) ]-?T(cd) [ 1 :(?T(n)-1 ) ] 


# 

#  H  ight(  estimated  PDF  for  Y)  can  be  computed  by  Are  a/ Increment 

# 

subject  c( subject, "Y  =  (X)  “2") 

?T(hi)_?T(  ay)/?T(d) 

# 

#  Call  macro  trplot  with  following  argument 

* 

?trplot(?T(x)  ,?T( y)  ,?T(pd)  ,?T(hi)  ,?T(px)  ,?T(py) , 

?T( d) ,?T( td) ,?T(n) , subject, ?T(xx) ,?T(yy) ,?T( tt) ) 
rm(?T(b) ,?T(e) ,?T(cd) ,?T( ay) ,?T( 1) ,para,np,maxy) 

}) 


MACRO  tr2(d  is, para, subject, 
sp/?PROMPT( Starting  Pt  for  Y  :  )/, 
ep/?PROMPT( End  ing  Pt  for  Y  :  )/, 

dv/?PROMPT( Increment  for  Y  :  )/) 

# 

#  This  Macro  is  to  compute  the  hight  of  transformed  variable, 

#  which  is  the  estimated  PDF  for  the  transformed  variable, 

#  when  the  transformation  is  y=log(x)  and  it  has  pdf  and  cdf 

#  function  in  S. 


?T(b)_sp 
?T( e)_ep 
?T(d)_dv 
np  len(para) 

?Tly)_seq(?T(b),?T(e),?T(d))  # 

?T(x)_exp(?T(y) )  #  ] 

?T(n)  len(?T(y))  #  ! 

?T( l)_4*?T(n)-3 
maxy_max(?T(y) ) 

?T(py)_seq(?T(b) ,maxy , len=?T( 1) ) 
?T(yy)_seq(?T(b) ,maxy , len=5 1 ) 

?T( px)_exp( ?T( py ) ) 

?T(xx)  exp(?T(yy)) 


Y  range  [b  e] 
Trans  format  ion 
length  of  Y 


with  small 
for  Plot 
for  PY 
for  YY 


interval 


If  given  distribution  has  function  and  1  parameter 


if(np  »  1)  { 

?T(pd)_?(d)d is(?T(x) ,para[1]) 
?T( tt)_?(d)d is(?T(xx) ,para[ 1 ] ) 
?T( td)_?(d)d is(?T( px) ,para[ 1 ] ) 
?T( cd)_?(p)d is(?T(x) ,para[ 1 ] ) 

}  else  { 


PDF  for  X 
PDF  for  XX 
PDF  for  PX 
CDF  for  X 


If  given  distribution  has  function  and  2  parameter 


PDF  for  X 
PDF  for  XX 
PDF  for  PX 
CDF  for  X 


?T(pd)_?(d)d is(?T(x),para[1],para[2])  i 
?T( tt)_?(d)d is(?T(xx) ,para[1],para[2])  1 

?T( td)_?(d)d is(?T(px) ,para[ 1],para[2])  i 
?T(cd)  ?(p)d  is(?T(x)  ,para[  1  ]  ,para[2] )  i 
} 

# 

#  Area  between  Y[  i]  and  Y[i+1] 

# 

?T(  ay)  ?T( cd)  [2  :?T( n)  ]-?T(cd )  [  1  :(?T( n) -1 )  ] 


H ight( est imated  PDF  for  Y)  can  be  computed  by  Area/Increment 

sub ject_c( subject, nY  =  Log  (X)") 

?T(  h  i)  ?T(ay)/?T(d) 


T* - f7777TTTT 


MACRO  tr3(  d is, para, subject, 
sp/?PROMPT( Starting  Pt  for  Y  :  )/, 
ep/?PROMPT( Ending  Pt  for  Y  :  )/, 

dv/?PROMPT( Increment  for  Y  :  )/) 

# 

#  This  Macro  is  to  compute  the  hight  of  transformed  variable, 

#  which  is  the  estimated  PDF  for  the  transformed  variable, 

#  when  the  transformation  is  y=exp(x)  and  it  has  pdf  and  cdf 

#  function  in  S. 


?T(b)_sp 
?T( e)_ep 
?T(d)_dv 
np  len(para) 

?TTy)_seq(?T( b) ,?T( e) ,?T(d) )  #  ' 

?T(x)_log(?T(y) )  #  ] 

?T(n)_len(?T(y) )  #  I 

?T( l)_4*?T(n)-3 
maxy_max(?T(y) ) 

?T( py )_seq( ?T( b) ,maxy , len=?T(  1) ) 
?T(yy)_seq(?T(b) ,maxy,len=51 ) 

?T( px)~log( ?T(  py ) ) 

?T( xx)  log(?T(yy) ) 


Y  range  [b  e] 
Transformation 
length  of  Y 


with  small  interval 
for  Plot 
for  PY 
for  YY 


If  given  distribution  has  function  and  1  parameter 


iftnp  ==  1)  { 

?T(pd)_?(d)d is(?T(x) ,para[ 1 ] ) 
?T(  tt)  ?(d)d  is(?T(xx)  ,para[  1  ] ) 
?T(td)_?(d)dis(?T(px),para[1]) 
?T(cd)_?(p)d is(?T(x) ,para[ 1 ] ) 

}  else  { 


for  X 
for  XX 
for  PX 
for  X 


If  given  distribution  has  function  and  2  parameter 


PDF  for  X 
PDF  for  XX 
PDF  for  PX 
CDF  for  X 


?T(pd)_?(d)d  is(?T(x),para[1],para[2j)  ) 
?T(  tt)_?(d)d  is(?T(xx)  ,para[  1  ]  ,para[2])  i 
?T(  td)_?(d)d  is(?T(  px)  ,para[  1  ]  ,para[2] )  i 
?T(  cd)_?(  p)d  is(?T(x)  ,para[  1  ]  ,para[2] )  i 
} 

Area  between  Y[  i]  and  Y[i+1] 

?T( ay)  ?T( cd) [2 :?T( n) ]-?T( cd ) [ 1 :( ?T( n) -1 ) ] 


Hight( est imated  PDF  for  Y)  can  be  computed  by  Area/ Increment 


sub ject_c( subject, "Y  =  Exp  (X)") 
?T(  h i)  ?T(  ay)/?T(d) 


y.w. 


MACRO  tr4(  d  is, para, sub ject, 
sp/?PROMPT( Starting  Pt  for  Y  :  )/, 
ep/?PROMPT(  Ending  Pt  for  Y  :  )/, 

dv/?PROMPT( Increment  for  Y  :  )/) 

# 

#  This  Macro  is  to  compute  the  hight  of  transformed  variable, 

#  which  is  the  estimated  PDF  for  the  transformed  variable, 

#  when  the  transformation  is  y=sqrt(x)  and  it  has  pdf  and  cdf 

#  function  in  S. 

# 

({ 

?T( b)_sp 
?T( e)_ep 
?T(d)_dv 
np  len(para) 

?T7y)_seq(  ?T( b),?T(e),?T(d))  #  Y  :  Y  range  [b  e] 

?T(x)_(?T(y)  )~2  #  X  :  Transformation 

?T(n)  len(?T(y))  #  N  :  length  of  Y 

?T( l)~4*?T(n)-3 
maxy_max(  ?T(y) ) 

?T(py)_seq(?T( b)  ,maxy,len=?T(  1) )  #  PY  :  Y  with  small  interval 

?T(yy)  seq(?T(b) ,maxy,len=51)  *  YY  :  Y  for  Plot 

?T(px)~(?T(py))~2  #  PX  :  X  for  PY 

?T(xx)~(?T(yy))"2  #  XX  :  X  for  YY 

# 

#  If  given  distribution  has  function  and  1  parameter 

# 

if(np  ss  1)  { 

?T( pd)_?( d)d  is( ?T(x)  ,para[  1  ] )  #  PD  :  PDF  for  X 

?T( tt)_?( d)d  is( ?T( xx) ,para[ 1 ] )  #  TT  :  PDF  for  XX 

?T( td)_?( d)d  is( ?T(px) ,para[ 1 ] )  #  TD  :  PDF  for  PX 

?T(  cd)_?(  p)d  is(  ?T(  x)  ,para[  1  ] )  #  CD  :  CDF  for  X 

}  else  { 

# 

#  If  given  distribution  has  function  and  2  parameter 

# 

?T(pd)_?(d)d  is(?T(x)  ,para[  1  ]  ,para[2] )  #  PD  :  PDF  for  X 

?T(  tt)_?(d)d  is(?T(  xx)  ,para[  1  ] ,  para[2] )  #  TT  :  PDF  for  XX 

?T(  td)_?(d)d  is(?T(px)  ,para[  1  ]  ,para[2])  #  TD  :  PDF  for  PX 

?T(cd)  ?(p)d  is(?T(x)  ,para[  1  ]  ,para[2] )  #  CD  :  CDF  for  X 

} 

# 

#  Area  between  Y[  i]  and  Y[i+1] 

# 

?T( ay )_?T( cd) [2 :?T( n) ]-?T( cd) [ 1 : ( ?T( n)-1 ) ] 

# 

#  H  ight(  est  imated  PDF  for  Y)  can  be  computed  by  Area/Increment 

# 

subject_c( subject, "Y  =  Sqrt  (X)n) 

?T( hi)  ?T(ay)/?T(d) 


l"J  pg  7*  ITgTTO^T 


’yyy.- 


#  Call  macro  trplot  with  following  argument 

# 

?trplot(?T(x) ,?T(y)  ,?T( pd)  ,?T( hi)  ,?T(  px),?T(py), 

?T(d) ,?T( td) ,?T(n),subject,?T(xx),?T(yy),?T(  tt) ) 
rm( ?T( b)  ,?T(e)  ,?T(cd)  ,?T(  ay )  ,?T(  1)  ,par.a,np,maxy) 

}) 

END 


v.y.j 


i 
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MACRO  ttr1(  d  is, para, subject, 
sp/?PROMPT( Starting  Pt  for  Y  :  )/, 
ep/?PR0MPT( End ing  Pt  for  Y  :  )/, 

dv/?PROMPT( Increment  for  Y  :  )/) 

4 

4  This  Macro  is  to  compute  the  hight  of  transformed  variable, 
4  which  is  the  estimated  PDF  for  the  transformed  variable, 

#  when  the  transformation  is  y=x~2  and  it  has  pdf  and  cdf 
4  macro  not  function  in  S. 

4 

({ 

?T(b)_sp 
?T(e)_ep 
?T(d)_dv 
np  len(para) 

?TTy)_seq(?T(b),?T(e),?T(d))  4  Y  :  Y  range  [b  e] 

?T(x)_sqrt(?T(y) )  4  X  :  Transformation 

?T(n)_len(?T(y) )  #  N  :  length  of  Y 

?T(l)j4*?T(n)-3 
maxy_max(?T(y) ) 

?T(py)_seq(?T(b)  ,maxy ,len=?T(  1) )  #  PY  :  Y  with  small  intern 

?T(yy)_seq(?T(b) ,maxy , len=5 1 )  #  YY  :  Y  for  Plot 

?T( px)~sqrt( ?T( py ) )  4  PX  :  X  for  PY 

?T(xx)_sqrt(?T(yy) )  4  XX  :  X  for  YY 

?T( pd)_?( ?d)d is( ?T(x),para[1],para[np])  #  PD  :  PDF  for  X 

?T(  tt)_?( ?d)d  is( ?T( xx)  ,parat  1  ]  ,para[np] )  #  TT  :  PDF  for  XX 

?T(  td)_?( ?d)d  is(  ?T(  px)  ,para[  1  ]  ,paratnp] )  4  TD  :  PDF  for  PX 

?T(cd)~?(?p)d is( ?T( x) ,para[ 1 ],para[np])  4  CD  :  CDF  for  X 


Y  with  small  interval 

Y  for  Plot 
X  for  PY 

X  for  YY 

#  PD  :  PDF  for  X 

#  TT  :  PDF  for  XX 
4  TD  :  PDF  for  PX 
4  CD  :  CDF  for  X 


4  Area  between  Y[  i]  and  Y[i+1] 

4 

?T( ay )  ?T( cd) [2 :?T( n) ]-?T( cd) [ 1 :( ?T( n) -1 ) ] 

4 

4  H  ight(  est  imated  PDF  for  Y)  can  be  computed  by  Area/Increment 

4 

subject_c( subject, "Y  =  (X)  “2") 

?T(  h  i)  ?T(  ay)/?T(d) 


4  Call  macro  trplot  with  following  argument 

4 

?  trplot( ?T( x) ,?T(y) ,?T( pd) ,?T( h i) ,?T{  px) ,?T(  py ) , 

?T(d) ,?T( td) ,?T(n) , subject, ?T( xx) ,?T(yy) ,?T( tt) ) 
rm(?T(b) ,?T( e) ,?T(cd) ,?T( ay) ,?T( 1) ,para,np,maxy) 


[•¥#] 


MACRO  ttr2(  d  is, para, subject, 
sp/?PROMPT( Starting  Pt  for  Y  :  )/, 
ep/?  PROMPT  (Ending  Pt  for  Y  :  )/, 

dv/?PR0MPT( Increment  for  Y  :  )/) 

# 

#  This  Macro  is  to  compute  the  hight  of  transformed  variable, 

#  which  is  the  estimated  PDF  for  the  transformed  variable, 

#  when  the  transformation  is  y=log(x)  and  it  has  pdf  and  cdf 

#  macro  not  function  in  S. 

# 

({ 

?T(b)_sp 
?T(e)_ep 
?T(d)_dv 
np  len(para) 

?TCy)_seq(?T(b),?T(e),?T(d))  #  Y  :  Y  range  [b  e] 

?T(x)_exp(?T(y) )  #  X  :  Transformation 

?T(n)  len(?T(y))  #  N  :  length  of  Y 

?T(l)_H*?T(n)-3 
maxy_max(?T(y)) 

?T(py)_seq(?T(b)  ,maxy,len=?T(l))  #  PY  :  Y  with  small  interval 

?T(yy)_seq(?T(b),maxy,len=51)  #  YY  :  Y  for  Plot 

?T(px)_exp(?T(py) )  #  PX  :  X  for  PY 

?T(xx)_exp(?T(yy) )  #  XX  :  X  for  YY 

?T(pd)_?(?d)d is(?T(x) ,parat 1 ] ,para[np] )  #  PD  :  PDF  for  X 

?T(  tt)_?(?d)d  is(?T(xx)  ,para[  1  ]  ,para[np])  #  TT  :  PDF  for  XX 

?T(td)_?(?d)dis(?T(px),para[1],para[np])  #  TD  :  PDF  for  PX 

?T(cd)_?(?p)dis(?T(x),para[1],paraCnpj)  #  CD  :  CDF  for  X 

# 

#  Area  between  Y[  i]  and  Y[i+1] 

# 

?T(  ay )_?T( cd) [2 :?T( n) ]-?T( cd) 1 1 : ( ?T(n)-1 ) ] 

# 

#  H ight( est imated  PDF  for  Y)  can  be  computed  by  Area/Increment 

# 

subject_c(subject,"Y  =  Log  (X)") 

?T(hi)_?T(ay)/?T(d) 

# 

4  Call  macro  trplot  with  following  argument 

# 

?trplot(?T(x)  ,?T(y)  ,?T(pd)  ,?T(hi)  ,?T(px)  ,?T(py) , 

?T(d) ,?T( td) ,?T(n) , subject, ?T(xx) ,?T(yy) ,?T( tt) ) 
rm(?T( b) ,?T( e) ,?T(cd) ,?T( ay) ,?T( 1) ,para,np,maxy ) 

}) 


MACRO  ttr3(  d  is, para, subject, 
sp/?PROMPT( Starting  Pt  for  Y  :  )/, 
ep/?PR0MPT( Ending  Pt  for  Y  :  )/, 

dv/?PROMPT( Increment  for  Y  :  )/) 

# 

#  This  Macro  is  to  compute  the  hight  of  transformed  variable, 

#  which  is  the  estimated  PDF  for  the  transformed  variable, 

#  when  the  transformation  is  y=exp(x)  and  it  has  pdf  and  cdf 

#  macro  not  Amotion  in  S. 

# 

({ 

?T( b)_sp 
?T(e)_ep 
?T(d)_dv 
np  len(para) 

?Tly)_seq(?T(b),?T(e),?T(d))  #  Y  :  Y  range  [b  e] 

?T(x)_log(?T(y) )  #  X  :  Transformation 

?T(n)_len(?T(y) )  #  N  :  length  of  Y 

?T(l)_4*?T(n)-3 
maxy_max(?T(y) ) 

?T(py)_seq(?T(b),maxy,len=?T(l))  #  PY  :  Y  with  small  interval 

?T(yy)_seq(?T(b) ,maxy,len=51)  #  PY  :  Y  for  Plot 

?T( px)_log( ?T( py) )  #  PX  :  X  for  PY 

?T(xx)_log(?T(yy) )  #  PX  :  X  for  YY 

?T(pd)_?(?d)d is(?T(x) ,parat 1 ] ,para[np] )  #  PD  :  PDF  for  X 

?T( tt)_?(?d)d is(?T(xx) ,para[ 1] ,para[np])  #  TT  :  PDF  for  XX 

?T( td)_?(?d)d is(?T(px) ,para[ 1 ] ,para[np] )  #  TD  :  PDF  for  PX 

?T(cd)_?(?p)d  is(?T(x)  ,para[  1  ]  ,para[np])  #  CD  :  CDF  for  X 

# 

#  Area  between  Y[  i]  and  Y[i+1] 

# 

?T( ay)_?T( cd) [2:?T( n) ]-?T( cd)[1:(?T(n)-1)] 

# 

#  H ight( est imated  PDF  for  Y)  can  be  computed  by  Area/ Increment 

# 

subject_c( subject, "Y  =  Exp  (X)") 

?T(hi)_?T(ay)/?T(d) 

# 

#  Call  macro  trplot  with  following  argument 

# 

?trplot(?T(x)  ,?T(y)  ,?T(pd)  ,?T(  hi)  ,?T(px)  ,?T(py) , 

?T(d) ,?T( td) ,?T(n) .subject, ?T(xx) ,?T(yy) ,?T( tt)) 
rm(?T(b)  ,?T(e)  ,?T(cd)  ,?T(  ay)  ,?T(1)  ,para,np,maxy) 

)) 

END 


MACRO  ttr4(  d  Is, para, subject, 
sp/?PROMPT( Starting  Pt  for  Y  :  )/, 
ep/?PROMPT( End  ing  Pt  for  Y  :  )/, 

dv/?PR0MPT( Increment  for  Y  :  )/) 

# 

#  This  Macro  is  to  compute  the  hight  of  transformed  variable, 

#  which  is  the  estimated  PDF  for  the  transformed  variable, 

#  when  the  transformation  is  y=sqrt(x)  and  it  has  pdf  and  cdf 

#  macro  not  fbnction  in  S. 

# 

(t 

?T(b)_sp 
?T( e)~ep 
?T(d)_dv 
np  len(para) 

?TTy)_seq(?T(b),?T(e),?T(d))  if  Y  :  Y  range  [b  e] 

?T(x)_(?T(y) )~2  #  X  :  Transformation 

?T( n)_len(?T(y) )  #  N  :  length  of  Y 

?T(l)_4*?T(n)-3 
maxy_max(?T(y)) 

?T(py)_seq(?T(b)  ,maxy , len=?T(  1) )  4  PY  :  Y  with  small  interval 

?T(yy)_seq(?T(b) ,maxy ,len=51 )  #  PY  :  Y  for  Plot 

?T(px)_(?T(py)T2  #  PX  :  X  for  PY 

?T(xx)_(?T(yy))“2  #  PX  :  X  for  YY 

?T(  pd)_?(  ?d)d  is(?T(x)  ,para[  1  ]  ,para[np] )  #  PD  :  PDF  for  X 

?T( tt)_?(?d)d  is(?T(xx) ,para[ 1 ] ,para[np])  #  TT  :  PDF  for  XX 

?T( td)_?(?d)d is(?T(px) ,para[ 1 ] ,para[np] )  #  TD  :  PDF  for  PX 

?T(cd)_?(?p)d is(?T(x) ,para[1],paraCnp])  #  CD  :  CDF  for  X 

4 

if  Area  between  Y[  i]  and  Y[i+1] 

# 

?T( ay)_?T(cd) [2 :?T(  n) ]-?T( cd) [ 1 :(?T( n)-1 ) ] 

# 

#  Hight( estimated  PDF  for  Y)  can  be  computed  by  Area/ Increment 

# 

subject_c( subject, "Y  =  Sqrt  (X)B) 

?T(hi)_?T(  ay)/?T(d) 

# 

#  Call  macro  trplot  with  following  argument 

# 

?trplot(?T(x)  ,?T(y)  ,?T(pd)  ,?T(  hi)  ,?T(px)  ,?T(py) , 

?T(d),?T(td),?T(n) .subject, ?T(xx) ,?T(yy) ,?T( tt) ) 
rm(?T( b) ,?T( e) ,?T(cd) ,?T( ay ) ,?T( 1) ,para,np,maxy) 

}) 

END 
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MACRO  tr1nt(d  is,para,  sub  ject, 
sp/?PROMPT( Starting  Pt  for  Y  :  )/, 
ep/?PR0MPT( End  ing  Pt  for  Y  :  )/, 

dv/?PR0MPT( Increment  for  Y  :  )/) 

# 

#  This  Macro  is  to  compute  the  hight  of  transformed  variable, 

#  which  is  the  estimated  PDF  for  the  transformed  variable, 

#  when  the  transformation  is  y=xA2,  in  which  x  is  defined 

#  from  negative  infinite  to  positive  infinite  such  as  normal 

#  or  t  distribution,  and  it  has  pdf  and  cdf  function  in  S. 

# 

({ 

?T( b)_sp 
?T(e)_ep 
?T(d)_dv 
np  len(para) 

?TTy)_seq(?T(b),?T(e),?T(d))  #  Y  :  Y  range  [b  e] 

maxy  max(?T(y)) 

?T(n7_len(?T(y) )  #  N  :  length  of  Y 

?T( 1)  H*?T(n)-3 

?T(yy7_seq(?T(b) ,maxy,len=?T( 1) ) 

?T(x)_sqrt(?T(y))  i  X  :  Transformat  ion 

# 

#  For  defined  Y,  two  X  values(same  value  but  different  sign) 

# 

?T(x)_c(-rev(?T(x) ) ,?T(x) )  #  X  :  ([-e  -b]  [b  e]) 

#  with  given  interval 

maxx_sqrt(maxy) 
m  inx_sqrt(?T(  b) ) 

?T(xx)_sqrt(?T(yy) ) 

?T(xx)_c(-rev(?T(xx) )  ,?T(xx) )  #  XX  :  Same  as  X  but  with  small  int 

?T(rx)_seq(0,minx,len=15) 

?T( rx)_c( -rev( ?T( rx) )  ,?T( rx) )  #  RX  :  [-b  b]  with  small  int 

?T(px)~seq(-maxx,maxx,len=51)  #  PX  :  [-e  e]  with  small  int 

?T(py)~?T(px)"2  #  PY  :  Y  for  given  PX 

# 

#  When  2  parameters  are  requ  ired  ; 

# 

if(np==2)  { 

?T(pd)_?(d)d  is(?T(x)  ,para[  1  ]  ,para[2] )  #  PD  :  PDF  for  X 

?T(  td)_?(d)d  is(  ?T(  px)  ,para[  1  ] ,  para[2] )  #  TD  :  PDF  for  PX 

?T(dd)_?(d)d is(?T(xx),para[1],para[2])  #  DD  :  PDF  for  XX 

?T(rd)_?(d)dis(?T(rx),para[1],para[23)  #  RD  :  PDF  for  RX 

?T(cd)_?(p)d  is(?T(x)  ,para[  1  ]  ,para[2] )  #  CD  :  CDF  for  X 

}  else  { 


V  v  i 


When  1  parameter  Is  required 


?T(pd)_?(d)d  is(?T(x)  ,para) 
?T(  td)_?(d)d  is(?T(px)  ,para) 
?T(dd)~?(d)d  is(?T(xx) ,para) 
?T( rd)  ?(d)dis(?T(rx)  ,para) 
?T(cd)~?(p)d  is(?T(x)  ,para) 

} 


PDF  for  X 
PDF  for  PX 
PDF  for  XX 
PDF  for  RX 
CDF  for  X 


#  Area  between  x[  i]  and  x[i+1],  which  is  sum  of 

#  two  areas. 

# 

?T( ayl  )_?T(cd) [ 1 :?T(n) 3 

?T( ay2)  ?T(cd) [(?T(n)+1 ) :(2*?T(n) ) ] 

?T( ay  1 )~?T( ay  1 ) [2 :?T(n) ]-?T( ay  1 ) [ 1 : (?T(n) -1 ) ] 
?T(ay2)_?T(ay2)t2:?T(n)]-?T(ay2)[1:(?T(n)-1)] 

?T( ay  1 )_rev(  ?T( ay  1 ) ) 

?T( ay)_?T( ayl )+?T( ay2) 

# 

#  Hight  for  given  Y  (estimated  pdf)  is  obtained  from 

#  area/  increment. 

# 

?T(hi)_?T(ay)/?T(d) 
subject_c( subject, "Y  =  X  “2") 

# 

#  Call  macro  trtplot  with  following  arguments. 

4 

?trtplot(?T(x)f?T(y),?T(pd),?T(hi),?T(px),?T(py),?T(d), 

?T( td) ,?T(n) ,?T(xx) ,?T(dd) ,?T(rx) ,?T( rd) .subject) 
rm(?T( b) ,?T( e) ,?T( ay ) ,?T(dy) ,?T( 1) ,?T(  ay  1 ) , 

?T(ay2)  ,?T(cd)  ,dis,prar,maxy,maxx,minx) 

1) 

END 


MACRO  trplot(x,y ,pd,h i,px,py ,dd, td ,nn, subject, tx, ty , tt) 

({ 

#  X  :  X  [b  e] 

#  Y  :  Transformed  Y 

#  PD  :  PDF  for  X 

#  HI  :  Hight(  estimated  CDF)  for  Y 

#  PX  :  X  with  small  interval 

#  PY  :  Y  for  PX 

#  DD  :  Given  interval  for  X 

#  TD  :  PDF  for  PX 

#  NN  :  length  of  Y 

#  Subject  :  Related  title 

#  TX  :  X  for  Plot 

#  TY  :  Y  for  Plot 

#  TT  :  PDF  for  XX 

# 

par(mfrow=c( 1,2),oma=c(5,0,5,0)) 

# 

#  Plot  X  vs.  Y 

# 

plot( tx, ty, types "l",xl abs"X",y labs" Y") 

# 

#  Plot  Y  vs .  X 

# 

plot( ty , tx, types "1" ,xlabs" Y",y labs "X") 
mtext(  sides 3,1  inesl  ,outersTRUE, sub ject[  1  ] ) 
mtext( s  ides  1 ,1  inesl ,ou ters TRUE, sub ject[31 ) 
par(mfi-owsc(  1,2),  omasc( 5, 3/5,0) ) 

# 

#  Plot  PDF  for  X 

# 

plot(x,pd, types"h",xlab="X",ylabs"", 

subssubject[3] ,  ylimsc(0,max(pd, td) ) ,  errs-l) 

1  ines(  tx,  tt) 

mtext( s ides2,  lines2,  outersT,  "PDF") 

# 

#  Plot  PDF  for  Y 

# 

yy_rep(y ,rep(2,nn) ) 
hh  rep(  hi,rep(2,(nn-1 ) ) ) 
hh~c( 0, hh, 0) 

plot(y  ,c(  hi, hi[nn-1  ] ) ,  types "h", 

xlabs"Y",ylabs"",yl imsc( 0,max( hi) ) , 
subsencode( "Increment  of  Y  :",dd) ,errs-i ) 

1  ines(yy  ,hh) 

mtext(  s  ides 3,1  inesl  ,outersTRUE, 

encoded  subject[ 1 ] , "",subject[23 ) ) 
mtext(  s  idesl  ,1  inesl  ,outersTRUE, 

"This  is  the  overall  picture  for  transformation.  If  you  want 
to  see  the  picture  one  by  one,  keep  going  on  hitting  Return 
when  GO?  appears  until  you  hit  Break  Key") 


# 

#  Iterated  Plot 

* 

for(  i  in  1  :(nn-1 ) )  { 
par(mfrowsc(  1 ,2) ,  omasc(5,3,5,0) ) 

# 

#  PDF  plot  for  X 

# 

plot(x[ 1 :(  1+1) ] ,pd[ 1 :(  1+1)3, types "h", 

xl abs "X",y labs"", errs- 1 , 

subsencode( "Increment  of  X  =",x[ i+1]-x[ 13) , 
yl  imsc(0,max(  td[  1  :(4*  i+1 )  ] ) ) ) 

1  inestpxt  1  :(4*  i+1 )  ] ,  td[  1  :(4*  i+1 )  3 ) 
hatch(c(x[  i3,pxf  (4*  1—3 ) :( 4* i+1 ) 3 ,x[  i+1 3 ) , 
c(0,  td[(4*  i— 3 )  :(4*  i+1 )  ]  ,0) ) 
mtext(sides2,  lines2,  outersT,  "PDF") 

# 

#  PDF  plot  for  Y 

# 

yyy_rep(y[1 :(  i+1 ) 3 ,rep(2,(  i+1))) 
hhh_rep(  h  i[  1 :  i] ,  rep(  2,1)) 
hhh_c(0,hhh,0) 

ploltytl :(  i+1 ) 3 ,c(hi[  1 :  i3,hi[  13), 
types "h",xlabs"Y" ,ylabs"", 
yl  imsc(0,max(  hit  1 : 13 ) )  ,errs-1 , 
aubsencodet "Increment  of  Y  s",dd)) 

1  ines(yyy,hhh) 

natch(c(y[  i3,yt  13, yt  i+ 1 3 , y C  i+13), 
c(0,hit  i) , h it  13,0)) 
mtext( s ides3,l  inesl  ,outersTRUE, 

encode( 3ubjectt 1 3 ,subjectt23 ,"",subjectt33 ) ) 
xv_xt  i]  ;  dv_pdt  i) 
yv_yt  i3  ;  hv_hi[i3 
mtextC  s  ide=  1 ,1  inesl  .outersTRUE, 
encode( "X  s",xv,"PDF  X  s",dv, 

"  Y  =" ,yv , "PDF  Y  s " , hv ) ) 

} 

rm( x , y , px , py , dd , td , pd , h i, nn , xv , y v , d v , hv , sub j  ec  t , 
hh,yy, hhh.yyy , tx , ty , tt) 


MACRO  trtplo t( x ,y , pd , h  i,  px , py , dd , td , nn , xx , xd , 
rx,rd, subject) 

({ 

# 

#  X  :  X  range  [-sqrt(e)  -sqrt(b)]  &  [sqrt(b)  sqrt(e)] 

#  Y  :  Y  range  [b  e] 

#  PD  :  PDF  for  X 

#  HI  :  PDF( estimated)  for  Y 

#  PX  :  X  [-s(e)  s(e)]  with  small  interval 

#  PY  :  Y  for  PX 

#  DD  :  Given  interval  for  Y 

#  TD  :  PDF  for  PX 

#  NN  :  length  of  Y 

#  XX  :  X  range  same  as  X  but  with  small  interval 

#  XD  :  PDF  for  XX 

#  RX  :  X  range  t-s(b)  s(b)] 

#  RD  :  PDF  for  RX 

#  Subject  :  Related  title 

# 

par(mfrow=c( 1,2) ,oma=c(5,0,5,0) ) 

# 

#  Plot  X  vs.  Y 

t 

plot(px,py, types "l",xlab="X",ylab="Y") 

# 

#  Plot  Y  vs.  X 

# 

plot(py, px, types "l",xlab=" Y",y lab= nX", err=- 1 ) 
mtext(  s  ides  3,1  inesO,  outers  TRUE,  subject[  1  ] ) 
mtext( s idesl ,1 inesO,outersTRUE,subject[3] ) 
par(mfhowsc( 1 ,2) ,  omasc(5,3,5,0) ) 

# 

#  Plot  PDF  for  X 

# 

plo t( x, pd, types "h",xlabs"X",y labs"", 

subssubject[3] ,  yl  imsc(0,max(pd,td)) , errs-1 ) 

1  inesCpx,  td) 

mtext(  s  ides2,  lines2,  outersT,  "PDF") 

# 

#  Plot  PDF  for  Y 

# 

yy_rep(y,rep(2,nn)) 
hh_rep(  hi, rep(  2,(nn-1 ) ) ) 
hh_c(0,hh,0) 

plot(y,c(hi, hi[nn-1]) , types "h", 

xlabs"Y",ylabs"",yl  imsc(  0,max(  hi) ) , 
subsencode( "Increment  of  Y  :",dd) , errs-1 ) 

1  ines( yy, hh) 

mtext(  s  ides 3,1  inesl  ,outersTRUE, 
encode( subjectC 1 ] ,"  ",subject[2] ) ) 
mtext(  3  idesl  ,1  inesl  ,outersTRUE, 

"This  is  the  overall  picture  for  transformation.  If  you  want 


to  see  the  picture  one  by  one,  keep  going  on  hitting  Return 
when  GO?  appears  until  you  hit  Break  Key") 


# 

#  Iterated  Plot 

# 

for(  i  in  1  :(nn-1 ) )  { 
par(mfrowsc(  1 ,2) ,  oma=c(5, 3,5,0)) 

# 

#  PDF  plot  for  X 

# 

plot(c(x[nn:(nn-  i)  ]  ,x[( nn+1 )  :(nn+1+  i)  ] ) , 

c(pd[nn:(nn-  i)  i  ,pd[(nn+1 ) :( nn+1  +  i)  ] ) ,  types  "h" , 
xl abs"X",y labs"", errs -1 , 

subsencode( "Increment  of  X  s",x[nn+1+ i]-x[nn+ i] ) , 
yl  imsc(0,max( pd[nn:(nn-  i)  ] ,pdt(nn+1 ) :( nn+1  +  i) ] ,rd) ) ) 
mx_len(xx)/2 

1  ines(c(xxt(mx-4*  i)  :mx]) , 
c(xdt(mx-4*  i)  :mx] ) ) 

1  ines(rx,rd) 

1  ines(xxt(mx+1 )  :(mx+4*  i+1 )  ] , 
xd [ ( mx+ 1 ) : ( mx+4* i+ 1 )  ] ) 

hatch(c(xtnn+1-i],xtnn-i],xxt(mx-4*i)  :(mx-4*(  i-1))]) , 
c(0,0,xdt(mx-4*  i) :(mx-4*(  i-1 ) ) ]) ) 
hatch(c(xtnn+1+ i]  ,xtnn+  i]  ,xx[(mx+4*  i-3)  :(mx+4*  i+1 )  ] ) , 
c(0,0,xd[(mx+4*  i-3) :(mx+4*  i+1 ) ] ) ,  angles  135) 
mtext(sides2,  lines2,  outersT,  "PDF") 

# 

#  PDF  plot  for  Y 

# 

yyy_rep(y[ 1 :(  i+1 ) ] ,rep(2,(  i+1 ) ) ) 
hhh_rep(  h  i[  1 :  i) ,  rep(  2 ,  i) ) 
hhh_c(0,hhh,0) 

plotCyt  1 :(  i+1 )  ]  ,c(  hi[  1  ]  ,hi[  1 :  i]) , 
types "h",xlabs"Y" ,ylabs"", 
yl  imsc(  0,max(  hit  1 :  i] ) )  ,errs-1 , 
subsencodet "Increment  of  Y  s",dd)) 

1  ines(yyy ,hhh) 

hatch(c(yt  i],y[  i],y[  i+1],y[  i+1]), 
c(0,hi[  i] ,  h  it  i],0)) 
mtext(sides3,l  inesl  ,outersTRUE, 
encodet  subjectt 1 ] ,subjectt2] , "" ,subjec tt  3] ) ) 
xl  xtnn+i]  ;  dv1_pdfnn+i] 
x2_xtnn+1-i]  ;  dv2  pdtnn+1-i] 
yv_yt  i]  ;  hv_hiti] 

mtext(  s  ides  1 ,1  ines  1  .outers TRUE, 

enoodet "X  :",x2,"PDF  s",dv2,"/  X  :",x1,"PDF  s",dv1)) 
mtext(  s  ides  1 , 1  ines  3,  outers  TRUE, 
encode("Y  s",yv,"PDF  Y  s",hv)) 

} 

rm( x ,y , px , py , dd , td , pd , h  i, nn , x 1 , x2 , y v , dv 1 , dv2 , hv , 
mx , xx , xd , rx , rd , sub j  ec  t , hh , yy , hhh , y yy ) 

}) 

END 
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MACRO  tr1u( subject, para, lowy,hiy, 

ddd/?PROMPT( Number  of  Intervals  in  Y  range  :  )/) 

# 

({ 

?T(  i)_ddd 

lf(para[  1  ]>=0  )  ?tr11u(  subject, para, lowy,  hiy,?T(  i) ) 
if(para[2]<=0  )  ? tr12u( subject, para, lowy , hiy,?T(  i) ) 
if( para[  1  ]<0  A  para[2]>0)  ?tr13u( subject, para, lowy, 

hiy  ,?T(  1)) 


}) 


END 
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MACRO  trl  1u(  subject, para, lowy,hiy,  Int) 

# 

#  Macro  for  Plotting  trnsform  of  uniform  when  all  parameters 

#  are  greater  than  zero. 

# 

({ 

# 

#  Y  range  with  given  number  of  intervals 

i 

y_seq( lowy , h iy , len=(  int+1 ) ) 
x  sqrt(y)  #  X  :  Transformat  ion 

nn_len(y ) 

# 

pd_dunif(x,para[  1  ]  ,para[2] )  #  PD  :  PDF  for  X 

cd_punif(x,para[1],para[2])  #  CD  :  CDF  for  X 

# 

#  Area  between  x[  i]  and  x[i+1],  which  can  be  computed 

#  by  subtracting  CDF[  i]  from  CDF[i+1]. 

# 

ay_cd[2 :(  int+1 )  ]-cd[  1 :  int] 

#  Increment  of  Y  can  be  computed  by  Yti+1]-Y[i] 

# 

inc_y[2]-y[  1  ] 

# 

#  Hight  for  given  Y  (estimated  pdf)  is  obtained  from 

#  area/ intrement. 

# 

h  i_ay/  inc 

subject_c( subject, "Y  =  X  *2") 

# 

#  Plot  X  vs  Y 

# 

par(mfTow=c( 1 ,2) ,  oma=c(5, 0,5,0)  ) 
plot(x,y,  type="l", 

xlab="X" ,  ylab="Y") 

# 

#  Plot  Y  vs.  X 

# 

plot(y  ,x,  types nl",xlab=”Y',,ylab=',X,,) 
mtext(  s  ides  3,1  inesO,  outers  TRUE,  sub  ject[  1  ] ) 
mtext(sides1 ,1  inesO, outersTRUE, sub  ject[3] ) 
par(mfrowsc(  1 ,2) ,  omasc( 6 ,5,0,0) ) 

# 

#  Plot  PDF  for  X 

# 

par(omasc(5,3,5,0) ) 

plot(  x,pd,  types  "h",xlabs"Xn  slabs'*", 
subs  sub  ject[3] ,  yl  imsc(  0,max(  pd) ) ) 

1  ines(c(  x[  1  ]  ,x[  int+1  ] )  ,c(  pd[  1  ]  ,pcl[  int+1  ]) ) 
mtext(  s  ides2 ,  lines2,  outersT,  "PDF") 


'  ,T*  W  ^  .'fc  ..  >  »  X  «  A. 


# 

#  Plot  PDF  for  Y 

# 

yy_rep(y,rep(2,nn) ) 
hh_rep( hi, rep( 2,(nn-1 ) ) ) 
hh_c( 0,hh,0) 

plot(y,c(  hi,hi[nn-1  ] ) ,  types "h" , 

xlabs"Y" ,ylabs"" ,yl  lm=c(  0,max(  hi) ) , 
sub=encode( "Increment  of  Y  ,  inc) ,err=-1 ) 

1  lnes(yy,hh) 

mtext(side=3,l  lne=  1  ,outer=TRUE, 

encode( subject[ 1 ] , "" , aub jec t[2] ) ) 
mtext(sides1 ,1  ine=1  ,outer=TRUE, 

"This  Is  the  overall  picture  for  transformation.  If  you  want 
to  see  the  picture  one  by  one,  keep  going  on  hitting  Return 
when  GO?  appears  until  you  hit  Break  Key") 

# 

#  Iterated  Plot 

# 

for(  i  in  1  :(nn-1 ) )  { 
par(mfrow=c( 1 ,2) ,  oma=c(5,3.5,0) ) 

# 

t  PDF  plot  for  X 

# 

plo t( x [  1 :(  i+1 )  ]  ,pd[  1 :(  i+1 )  ] ,  type="h", 
xlab="X",ylab="",err=-1 , 

sub=encode( "Increment  of  X  r"  ,x[  i+1  ]-x[  i] ) , 
yl  im=c( 0,pd) ) 

1  ines(x[  1 :(  i+1 )  ]  ,pd[  1 :(  i+1 ) ] ) 
hatch(c(x[  i]  ,x[  i]  ,x[  i+1  ]  ,x[  i+1  ] ) , 
c(0,pd[  i],pd[  i] , 0 ) ) 
mtext(  s  ide=2 ,  line=2,  outer=T,  "PDF") 

# 

#  PDF  plot  for  Y 

# 

yyy_rep(y[  1 :(  i+1 )  ]  ,rep(2,(  i+1))) 
hhh_rep(  h  i[  1 :  i] ,  rep(  2 ,  i) ) 
hhh_c(0,hhh,0) 

plot(y[1 :(  i+1)],c(hi[1 :  i],hi[  i]), 
types "h",xlab="Y" ,ylab="" , 
yl  im=c(0,max(  hi[  1 :  i] ) )  ,err=-1 , 
sub=encode( "Increment  of  Y  =",inc)) 

1  ines(yyy , hhh) 

hatch(c(y[  i]  ,y[  i]  ,y[  i+1  ]  ,y[  i+1  ] ) , 
c(  0, h i[  i] , h i[  i]  ,0) ) 
mtext(side=3,l  ine=1  ,outer=TRUE, 

encoded subjectt 1 ] ,3ubject[2] , "" , sub ject[ 3] ) ) 
xv_x[  i]  ;  dv_pd[  i] 
yv_y[  i]  ;  hv_hi[i] 
mtext(  sides  1 ,1  inesl  .outers TRUE, 
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MACRO  tr12u(  sub ject, para,  lowy,  h iy,  int) 

# 

#  Macro  for  Plotting  trnsform  of  uniform  when  all  parameters 

#  are  smaller  than  zero. 
it 

({ 

# 

it  Y  range  with  given  number  of  intervals 

# 

y_seq( lowy, hiy, lens (  int+1)) 
x_sqrt(y)  #  X  :  Transformation 

x_-rev(x) 
nn_len(y) 
it 

pd_dun  if(x,para[  1  ]  ,para[23 )  it  PD  :  PDF  for  X 

cd_pun  if(x,para[  1  ]  ,parat2] )  #  CD  :  CDF  for  X 

# 

#  Area  between  x[  i]  and  x[i+1],  which  can  be  computed 

#  by  subtracting  CDF[  i]  from  CDF[i+1]. 
it 

ay_cd[2:(  int+1 )  ]-cd[  1 :  int] 
it 

it  Increment  of  Y  can  be  computed  by  Y[i+1]-Y[i] 
it 

inc_y[2]-yt 1] 

# 

t  Hight  for  given  Y  (estimated  pdf)  is  obtained  from 
#  area/  intrement. 
it 

h  i_ay/  inc 
h  i_rev(  h  i) 

subject  c( subject, "Y  =  X  “2") 
it 

it  Plot  X  vs  Y 
it 

par(mfrow=c( 1 ,2) ,  oma=c(5, 0,5,0)  ) 
plot( x ,y[nn : 1 ] ,  type="l",  errs-1, 
xlab=nXn ,  ylab="Y" ) 
it 

it  Plot  Y  vs.  X 
it 

plot(y,x[nn:1], type= "l",xlab="Y",ylab="X") 
mtext(  s  ide=3»  1  ine= 0,  outers  TRUE,  sub  ject  [  1 3 ) 
mtex  t(  s  ide=  1 , 1  ine=0,  outers  TRUE,  sub  jec  t[  33 ) 
par(rafrowsc( 1 ,2) ,  omasc(5, 3.5,0) ) 


#  Plot  PDF  for  X 

# 

plot(x,pd,  types "h"  ,xlab="X”  ,ylabs"«, 
sub=3ubject[3],  yl imsc(0,max(pd))) 

1  ines(c(x[  1  ] ,x[  int+1 ] ) ,c( pdt 1 ] ,pdf  int+1  ] )) 
mtext(  s  ides2,  line=2,  outer=T,  "PDF") 

# 

*  Plot  PDF  for  Y 

# 

yy_rep(y,rep(2,nn) ) 
hh_rep(hi,rep(2,(nn-1 ) ) ) 
hh_c(0,hh,0) 

plot(y,c(  hi,hi[nn-1  ] ) ,  types "h" , 

xlabs"Y",ylabs"",yl  im=c(0,max( hi) ) , 
sub=encode( "Increment  of  Y  Inc) ,err=-1 ) 

1  ines(yy,hh) 

mtext(  s lde=3>l ine=1 ,outer=TRUE, 

encodeC  subjectt 1 ] subject[2] ) ) 
mtext(  s  ide=1 ,1  ine=1  ,outer=TRUE, 

"This  is  the  overall  picture  for  transformation.  If  you  want 
to  see  the  picture  one  by  one,  keep  going  on  hitting  Return 
when  GO?  appears  until  you  hit  Break  Key") 

# 

#  Iterated  Plot 

# 

for(  1  in  1  :(nn-1))  { 
par(mfrow=c( 1 ,2) ,  oma=c(5,3,5,0) ) 

# 

#  PDF  plot  for  X 

# 

plot(x[nn:(nn-  i) ] ,pd[nn:( nn- i) ] , types "h" , 

xlabs"X",ylabs"",errs-1 , 

sub=encode( "Increment  of  X  s" ,x[nn-  i+1 ]-x[nn-  i] ) , 
yl  imsc( 0, pd) ) 

1  ines(x[nn:(nn-  i)  ]  ,pd[nn:(nn-i)  ]) 
hatch(c(x[nn-  i+1  ]  ,x[nn-i+1  ]  ,x[nn- 1]  ,x[nn-  i] ) , 
c( 0,pd[nn-i+1 ] ,pd[nn- i+1 ] ,0) ) 
mtext(  sides2,  lines2,  outersT,  "PDF") 

* 

4  PDF  plot  for  Y 

# 

yyy_rep(y[ 1 :(  i+1 ) ] ,rep(2,(  i+1 ) ) ) 
hhh_rep(  h  it  1  :  i] ,  rep(  2 ,  i) ) 
hhh_c( 0, hhh,0) 

plo"t(y[  1 :(  i+1 ) ],c( hit  1 :  i] ,hi[  i]) , 
types "h", xl abs " Y" ,ylabs"", 
yl  imsc(  0,max(  hit  1 :  i] ) )  ,errs-1 , 
subsencodet  "Increment  of  Y  s",inc)) 


1  ines(yyy,hhh) 

hatch(c(y[  i]  ,y[  i]  ,y[  i+1  ]  ,y[  i+1  ] ) , 
c(0,hi[  i] , h it  i] , 0 ) ) 
otext(  s  ide=3,l  ine=1  , outers TRUE, 

encoded  subjectC 1 ] ,subject[2] ,  "",subject[33 ) ) 
xv  x[nn-i+l3  ;  dv  pdCnn-i+1] 
y v~y  [  i]  ;  hv_h  i[  il 
mtext( s  ide=1 ,1 ine=1 , outers TRUE, 
encode( "X  =",xv,"PDF  X  s",dv, 

"  Y  =",yv,"PDF  Y  s  " ,  hv ) ) 

} 

rm( x , y , pd , cd , h  i,  nn , xv , y v , dv , hv , sub j  ec  t , 
hh,yy,hhh,yyy, Inc) 

}) 

END 
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MACRO  tri 3u( sub jec t,para, lowy , h iy , int) 

# 

#  Macro  for  Plotting  trnsform  of  uniform  when  lower  bound  is 

#  less  than  zero  and  upper  bound  is  greater  than  zero. 

# 

(1 

# 

#  Y  range  with  given  number  of  intervals 

# 

y_3eq(lowy ,hiy,len=(  int+1)) 

x_sqrt(y)  #  X  :  Transformation 

x_c( -rev(x) ,x) 

x_x[x>para[  1  ]  &  x<para[2]] 

x_c(para[ 1],  x,  para[2]) 

x_uniq(x) 

ox_?which(x==0) 

nx_len(x) 

ny_len(y) 

px_seq(m  in(x) ,max(x) ,len=21 ) 
py_px"2 

t 

pd__dunif(x,para[1],para[2])  #  PD  :  PDF  for  X 
cd_pun  if(x,para[  1  ]  ,para[2] )  CD  :  CDF  for  X 

Area  between  x[  i]  and  xti+1],  which  can  be  computed 
by  subtracting  CDF[  i]  from  CDF[i+1]. 

ayx_cd[2:nx]-cd[1 :(nx-1)] 

Increment  of  Y  can  be  computed  by  Y[i+1]-Y[i] 
inc_y[2]-y[  1  ] 

Some  range  of  X  should  be  added  up  for  Y  range 

if(  abs(para[1])  >  para[2]  )  { 
ay  ayx[( ox-1 ) : 1 ] 

ayTl :(nx-ny)]  ay[1 :(nx-ny) ]+ayx[ox:(nx-1 ) ] 
ix_x  [  ny :  2  ]  -x  [T"ny- 1 ) :  1  ] 

} 

if(  abs(para[1])  <=  para[2]  )  { 
ay  ayx[ox:(nx-1 ) ] 

ayTl :(ox-1 ) ]_ay[ 1 :(ox-1 ) ]+ayx[( ox-1 ) : 1 ] 
ix_x[(nx-ny+2) :nx]-x[(nx-ny+1 ) :( nx-1 ) ] 

} 

Hight  for  given  Y  (estimated  pdf)  is  obtained  from 
area/  intrement. 

h  i  ay/  inc 

subject  c(  subject, "Y  =  X  “'2") 
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Plot  X  vs  Y 

par(mfrow=c( 1 ,2) ,  oma=c(5, 0,5,0)  ) 
plot(px,py,  types"l", 

xlabs"X",  ylabs"Y") 

Plot  Y  vs.  X 

plot(py,px, types "l",xlabs"Y",ylabs"X") 
mtext(  sides  3,1  ines 0, outers TRUE,  subject[  1  ] ) 
mtext( sldesl ,1 jnes0,outersTRUE,subject[3]) 
par(mfrowsc( 1 ,2) ,  omasc(5,3.5,0) ) 

Plot  PDF  for  X 

plot(x,pd, types"h",xlabs"X",ylabs"", 
subssubjectt3] ,  yl imsc(0,max(pd))) 
lines(c(x[1],x[nx]),c(pd[1],pd[nx])) 
mtext(  s  ides2,  lines2,  outersT,  "PDF") 

Plot  PDF  for  Y 

yy_rep(y,rep(2,ny)) 
hh_rep( h  i, rep( 2 , ( ny-1 ) ) ) 
hh_c(0, hh,0) 

plot(y,c(  hi,hi[ny-1  ] ) ,  types "h", 

xlabs"Y",ylabs"",yl imsc(0,max(  hi) ) , 
subsencode( "Increment  of  Y  ,  inc) ,errs-1 ) 

1  ines(yy,hh) 

mtext(  s  ides  3 , 1  ines  1  ,outersTRUE, 

encode( subject[ 1 ] ,"",subject[2] ) ) 
mtext(sides1 ,1  ines  1  ,outersTRUE, 

"This  is  the  overall  picture  for  transformation.  If  you  want 
to  see  the  picture  one  by  one,  keep  going  on  hitting  Return 
when  GO?  appears  until  you  hit  Break  Key") 

Iterated  Plot 


for(  I  in  1 :( ny-1 ) )  { 
par(mfrowsc( 1 ,2) ,  omasc(5,3#5,0) ) 

PDF  plot  for  X 

plot(x[max(  1 ,  ( ox-  i) )  :min(nx,ox+  i)  ] , 

pd[max(  1 ,( ox-  i) )  :m  in(  nx,ox+  i)  ] ,  types "h", 

3ubsencode( "Increment  of  X  s",ix[i]), 
ylimsc(0,pd),  xlabs"X",  ylabs"") 

1 ines(c(x[max(  1 ,( ox- i) ) ] ,x[m in( nx,ox+ i) ] ) ,  rep( pdCox] ,2) ) 


ifX  ox-i  >=1  )  { 

hatch(e(x[max(  1  ,  (ox-  i)  +  1 )  ] ,  x[max(  1  ,  (ox-  i)  +  1 )  ] , 
x[max(  1 ,  ( ox-  i) )  ] ,  x[max(  1 ,( ox-  i) )  ] ) , 
c(0,pd[ox],pd[ox],0))  } 

if(  ox+i  <=  nx  )  { 

hatch(  c(x[min(nx,( ox+  i-1 ) )  ] ,  x[m  ln(  nx,(ox+  i-1 ) )  ] , 
x[min(nx,ox+i)  ] ,  x[m in( nx,ox+  i)  ] ) , 
c(0,pd[ox],pd[ox],0),  angle=135)  } 

mtext(  s  ide=2,  line=2,  outer=T,  "PDF") 

# 

#  PDF  plot  for  Y 

# 

yyy_rep(y[ 1 :(  1+1 ) ],rep(2,(  1+1 )) ) 
hhh_rep(  h  1[  1 : 1] ,  re p(  2 ,  i) ) 
hhh_c(Of hhh,0) 

plot(y[1 :(  i+1)],c(hi[1 :  i],hi[  1]), 
type=nh",xlab="Y",ylab="" , 
yl  im=c(0,max(  hi[  1 :  1] ) )  ,err=-1 , 
sub=encode( "Increment  of  Y  =",inc)) 

1  ines(yyy,hhh) 

hatch(c(y[  1]  ,y[  i]  fy[  1+1  ]  ,y[  i+1  ] ) , 
c(0, hit  1]  ,hi[  i]  ,0) ) 
mtext(slde=3»l  ine=1  ,outer=TRUE, 

encode( subjectt 1 ] ,aubject[2] , n",subject[3] ) ) 
x1_ifelse(ox+ K=nx,  x[m  in(  ( ox+  i-1 )  ,nx)  ] ,  NA) 
dv1_ifelse(ox+i<=nx,  pdCox],  0) 
x2_ifelse((ox-i)>=1 ,  x[oax(  ( ox- 1+1 ) ,  1 )  ] ,  NA) 
dv2_ifelae(  ( ox- i)>=  1 ,  pd[ox],  0) 
mtext(  a  ide=1 ,1  ine=1  ,outer=TRUEf 

encodeC "X  :",x2,"PDF  =",dv2,"/  X  :",x1,"PDF  =",dv1 
mtext( a  ide=1 ,1  ine=3*outer=TRUE, 
encode(  "Y  =",y[i],"PDF  Y  =  " , h i[  i] ) )  } 

rm(  x , y , pd , cd , h 1, ny , nx , sub jec t , ox ,  ix , ay , ayx , 
hh,yy,hhh,yyy,  lnc,px,py,paraf lowy,hly, int) 


MACRO  unifins1(lowy,hiy) 

({ 

messageC encodeC "Lower  Y  limit  is",lowy, 
"  Upper  Y  limit  is",  hiy)) 

}) 

END 
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MACRO  unifins2(lowy,hiy) 

(t 

message(  encodeC "  Possible  Lower  Y  limit  is",lowy, 
"  Upper  Y  limit  is",  hiy)) 

}) 

END 
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MACRO  bv tran 

({ 

?MESSAGE( ) 

?MESSAGE( Type  of  Distribution  :) 

?MESSAGE( ) 

item__c(  "B  ivar  iate  Normal  Distribution", 

"Bivariate  Uniform(0,1)  Distribution", 
"Bivariate  Chisquare  Distribution", 
"Standard  Normal  &  Chisquare  Distribution") 
action_c(  "?bvntran" , 

"?bvutran", 

"?bvctran", 

"?bvnctran") 
menu(  item,  action) 
rm(  item,  action) 

}) 

END 


MACRO  bvntran 
(t 

?MESSAGE( ) 

?MESSAGE( Type  of  Transformation  :) 
?MESSAGE( ) 
item_c("z  =  x  +  y", 

"z  =  x~2  +  y“2") 
ac t ion_c( "?bvn1 tran" , 

"?bvn2tran") 
menu(  item,  action) 
rm(  item,  action) 

1) 

END 


MACRO  bvutran 

({ 

?MESSAGE( ) 

?MESSAGE(  Type  of  Trans  format  ion  :) 

7MESSAGEO 

item  c("z  =  x  +  y", 

"z  =  x"2  +  y'*2") 
act  ion_c(  "?bvu1  tran" , 

~  "?bvu2tran") 
menu(  item,  act  ton) 
rm(  item,  action) 


MACRO  bvctran( 

d1/?PROMPT( Degree  of  Freedom  for  X  :  )/, 
d2/?PR0MPT( Degree  of  Freedom  for  Y  :  )/, 

it/? PROMPT( Number  of  intervals  you  want  to  divide  the  Z  range 
chapter 
({ 

#  This  is  a  Macro  to  transform  bivariate  chisquare 

#  variables  with  the  form  of  z  =  (x/dftc)  /  (y/dfy) 

# 

?MESSAGE( ) 

?MESSAGE( Bivariate  Chisquare  variable  will  be  transformed) 
?MESSAGE(as  Z  =  (X/DFx)  /  ( Y/DFy ) ) 

?MESSAGE( ) 

?T(d1)_d1 

?T(d2)_d2 

?T(dr)~?T(d1)/?T(d2) 

# 

#  Range  of  Z  will  be  fVom  0  to  7» 

#  because  it  will  give  clear  plotting. 

?MESSAGE( ) 

?MESSAGE(Note  :) 

?MESSAGE(The  range  of  Z  will  be  from  0  to  7.) 

?MESSAGE( ) 

?T(  i)_it 

?T( z)_seq( 0, 7 , len=(?T(  i)  +  1)) 

#  To  set  the  range  of  X 
?T(x)_seq( 0.0001, 2, len= 10) 

#  To  set  the  range  of  Y 
?T(y)_?T(x) 

# 

#  Call  macro  to  plot  the  z=x+y  (3  dimensional  plot)  and 

#  the  range  of  z  in  terms  of  x  and  y  dimension. 

# 

?bvcplot1 (?T(x) ,?T(y) ,?T(d1 ) ,?T(d2) ,?T(dr) ) 
?T(xr)_rep(?T(x)*?T(d1 ) ,rep( 10,10)) 

?T(yr)_rep(?T(y)*?T(d2) ,10) 

# 

#  Compute  the  pdf  to  plot  the  contour  and  the  3-d  imens ional 

#  picture. 

# 

?T( w)_dchisq( ?T(xr)  ,?T(d  1 ) )  *  dch isq( ?T( yr)  ,?T(d2)) 

?T( w)  matrix(?T(w),10,10,byrowsT) 

# 

#  Call  macro  to  plot  contour  and  3-dimensional  picture. 

# 

?bvcplot2( ?T( x) ,?T(y) ,?T(w) ,?T(d1 ) ,?T(d2) ,?T(dr) ) 


# 

#  Compute  the  volume  under  the  given  area  by  calling  the  imsl 

#  library  for  double  integration  v  ia  S  extention  function. 

?T(gx)_gamma(?T(d1)/2) 

?T(gy)  gamma(?T(d2)/2) 

# 

#  yh  :  max  value  for  y  given  degree  of  freedom 

#  This  value  will  be  used  for  the  max  range  of  outer  interval 

#  of  double  integration. 

# 

?T(yh)_qchisq( .9999,?T(d2) ) 

?T(cd)_bvchisq(?T(d1 ) ,?T(d2) ,?T(  i) ,?T(gx) ,?T(gy) ,?T(yh) ,?T(z)) 

# 

#  Call  macro  to  plot  the  estimated  pdf  for  transformed  variable  z, 

#  and  the  pdf  contour  for  x  and  y. 

# 

?bvcplot3(?T(cd) ,?T( z) ,?T(  i)  ,?T(x) ,?T(y) ,?T(w) , 

?T(d1 ) ,?T(d2) ,?T(dr)) 

rm(?T(d1 ) ,?T(d2) »?T(z) ,?T(  i) ,?T(x) ,?T(y) ,?T(w) ,?T(xr) ,?T(yr) , 
?T(gx) ,?T(gy) ,?T(yh) ,?T(cd) ,?T(dr)) 

}) 

END 
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MACRO  bvnctran( 

df/?PROMPT( Degree  of  Freedom  for  Chisquare  variable  :  )/, 
it/?PROMPT( Number  of  intervals  you  want  to  divide  the  T  range  :  )/) 
chapter 
({ 

#  This  is  a  Macro  to  transform  Standard  Normal  variable  and 

#  Chisquare  variable  into  T  variable. 

#  The  transformation  equation  is  T  =  X  /  (sqrt(Y/n)), 

#  where,  X  :  Normal  variable  with  mu=Q  sd=1 

#  Y  :  Chisquare  variable  with  n  degree  of  freedom 

# 

? MESSAGE ( ) 

? MESSAGE ( X  :  Normal  variable  with  Mu  =  0  SD  =  1 ) 

? MESSAGE ( Yp  :  Chisquare  variable  with  n  degree  of  freedom) 
?MESSAGE(The  transform  will  be  T  =  X  /  sqrt[Yp/n]  ) 

?MESSAGE( ) 

?T(df)_df 

Range  of  T  will  be  from  -4  to  4, 
because  it  will  give  clear  plotting. 


?MESSAGE( ) 

?MESSAGE( Note  :) 

?MESSAGE(The  range  of  T  will  be  from  -4  to  4.) 
?MESSAGE( ) 

?T(  i)_it 

?T(  z)_seq(  -4,4,len=(  ?T(  i)  +  D) 

#  To  3et  the  range  of  X 
?T(x)_seq(-3,3,len=11) 

#  Quantile  of  chisquare  varible  with  .9999  cd  f 
?T(mc)_qchisq(  .9999,  ?T(df)) 

#  To  set  the  range  of  Yp 

? T(yp)_seq(0. 000000 1 ,?T( me) ,len=l 1 ) 

#  To  find  the  value  of  Y=sqrt(Yp/n) 
?T(y)_sqrt(?T(yp)/?T(df) ) 

#  Max  value  of  yp 
?T(my  )_max( ?T(y) ) 

# 

#  Call  macro  to  plot  the  T=X/Y  or  T=X/sqrt( Yp/n) 

#  (3  dimensional  plot)  and  the  range  of  T  in  terms  of 

#  x  and  y  dimension. 

# 

?bvncplot1(?T(x)  ,?T(y)  ,?T(df)  ,?T(my)) 

# 

#  Repeat  X  and  YP  values  to  compute  PDF 

# 

?T(xr)_rep(?T(x) ,  rep(11,11)) 

?T(yr)~rep(?T(yp) ,  11) 
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# 

#  Compute  the  pdf  to  plot  the  contour  and  the  3-dimensional 
t  picture. 

# 

?T( w)  dnorm(?T(xr) )  »  dch isq( ?T( yr) ,?T( d f) ) 

?T(w)“matr  ix(?T(  w) ,  1 1 , 1 1 ,byrow=T) 

# 

#  Call  macro  to  plot  contour  and  3-dimensional  picture. 

# 

?bvncplot2(?T(x),?T(y),?T(w),?T(df),?T{my)) 

# 

?T(gx)_gamma(?T(df)/2) 

# 

#  Compute  the  volume  under  the  given  area  by  calling  the  imsl 

#  1  ibrary  for  double  integration  via  S  extention  function. 

# 

?T(cd)_bvnandc(?T(df)  ,?T(  i)  ,?T(gx)  ,?T(me)  ,?T(z) ) 

# 

#  Call  macro  to  plot  the  estimated  pdf  for  transformed  variable  t, 

#  and  the  pdf  contour  for  x  and  y. 

# 

?bvncplot3(?T(cd)  ,?T(z)  ,?T(  i)  ,?T(x)  ,?T(y)  ,?T(w)  ,?T(df)  ,?T(my)) 

#  rm(?T(df)  ,?T(z)  ,?T(  i)  ,?T(x)  ,?T(y)  ,?T(yp)  ,?T(w)  ,?T(xr)  ,?T(yr) , 

#  ?T(gx) ,?T(yh) ,?T(cd) ,?T(mc) ,?T(my) ) 

}) 

END 


MACRO  bvnl tran( 
mu/?PROMPT(Mean  value  :  )/, 
sg/?PROMPT( Sigma  value  :  )/, 
rv/?PRQMPT( Coef  of  R  :  )/, 

it/? PROMPTC Number  of  intervals  you  want  to  divide  the  Z  range  :  )/) 
chapter 
({ 

#  This  is  a  Macro  to  transform  bivariate  normal 

#  variables  with  the  form  of  z  =  x  +  y 

# 

?MESSAGE( ) 

?MESSAGE( Bivariate  normal  variables  will  be  drawn  from) 

?MESSAGE(  ident  leal  distribution.  ) 

? MESSAGE ( ) 

?T(m)_mu 
?T(s)_sg 
?T(r)  rv 

?T(zl7_(?T(m)-2*?T(s))*2 

?T(z2)_(?T(m)+2»?T(s))«2 

# 

#  Range  of  Z  will  be  from  (Mu-2*S)»2  to  (Mu+2*S)*2, 

#  because  it  will  give  clear  plotting. 

# 

?MESSAGE( ) 

?MESSAGE( Note  :) 

?MESSAGE( The  range  of  Z  will  be  from  (Mu-2»S)*2  to  (Mu+2*S)*2.) 
?MESSAGE( ) 

?T(  i)  'it 

?T(z)  seq(?T(z1),?T(z2),len=(?T(  i)  +  1)) 

?T(xl7_?T(m)-3*?T(s) 

?T(x2)_?T(m)+3*?T( s) 

* 

#  nx  &  mx  will  represent  integer  value  for  the  range  of 

#  x  and  y. 

# 

?T(nx)_(  floor(?T(x1 )/5) )*5 
?T(mx)“(ceiling(?T(x2)/5))*5 

# 

#  Call  macro  to  plot  the  z=x+y  (3  dimensional  plot)  and 

#  the  range  of  z  in  terms  of  x  and  y  dimension. 

# 

?bvn1plot1(?T(z1),?T(z2) ,?T(m) ,?T(s) ,?T(x1 ) ,?T(x2) ,?T(nx) ,?T(mx)) 

#  To  set  the  range  of  X 
?T(x)_seq(?T(x1) ,?T(x2) ,len=1 1) 

#  To  set  the  range  of  Y 
?T( y )  ?T( x) 

?T( xr7_rep( ?T( x) , rep( 11,11)) 

?T( yr )  rep(?T(y) ,11) 


#  Compute  the  pdf  to  plot  the  contour  and  the  3-dimensional 

#  picture. 

# 

?T( w)_?db  inorml ( ?T( m) ,?T(s) ,?T(m),?T(s) ,?T(r) ,?T(xr) ,?T(yr)) 

?T( w)  matr ix(?T(w) , 1 1 , 1 1 ,byrow=T) 

# 

#  Call  macro  to  plot  contour  and  3-dimensional  picture. 

# 

?bvn1plot2(?T(x) ,?T(y),?T(w) ,?T(m) ,?T( s) ,?T( r) ,?T( zl ) ,?T( z2) , 
?T(nx) ,?T(mx) ,?T(x1 ) ,?T(x2) ) 

# 

#  Compute  the  volume  under  the  given  area  by  calling  the  imsl 

#  library  for  double  integration  via  S  extent  ion  function. 

?T(cd)_bvnorm(?T(m) ,?T( a) ,?T(m) ,?T( s) ,?T( r) ,?T(  i),?T(z)) 

# 

#  Call  macro  to  plot  the  estimated  pdf  for  transformed  variable  z, 

#  and  the  pdf  contour  for  x  and  y. 

# 

?bvn1plot3(?T(cd) ,?T(z) ,?T( zl ) ,?T( z2) ,?T(  i) ,?T(x) ,?T(y),?T(w) , 
?T(nx) ,?T(mx) ,?T(m) ,?T(  s) ,?T(r) ) 
rm( ?T(m) ,?T(s),?T(z1),?T(z2),?T(  i)  ,?T(r)  ,?T(cd) , 

?T(x) ,?T(y) ,?T( w) ,?T( xr) ,?T(yr) ,?T(z)) 

}) 

END 


I 
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MACRO  bvnlplotKzl , z2,m,s,x1  ,x2,nx,mx) 

# 

#  This  macro  Is  to  plot  relationship  between  z  and  x,y  and 

#  the  range  of  z  in  terms  of  x  and  y. 

# 


({ 

x_seq(x1 ,x2,len=1 1 ) 
y_x 

xx_rep(x,rep( 11,11)) 
yy_rep(y, 1 1 ) 

xx_matr ix(xx,1 1 ,1 1 ,byrow=T) 

yy_matr ix(yy, 1 1 , 1 1 ,byrow=T) 

zz_xx+yy 

nz_mln(zz) 

mz_max( zz) 

zz_zz-nz 

par(mfrow=c(  1 ,2) ,  oma=c(  4,0,4 ,0) ) 

# 

#  Plot  the  "z"  In  the  3  dimens  inal  plane. 

# 

persp( zz/mz) 

t itle(  sub=encode( "Y( L)  &  X(R)  [",x1 ,x2,"]") ) 
it 

it  Plot  the  x  and  y  ax  is 

# 

plot(x,y,  xl  im=c(nx,mx) ,  yl im=c(nx,mx) ,  type="n",  axes=F) 
ax  is(  1 )  ;  ax  is(  2) 

t itle( sub=encode( "Given  Mu  :",m,"  S  :",s)) 

# 

#  Plot  the  line  representing  Mean  value. 

# 

abl  ine( h=m) 
abl  ine( v=m) 

# 

it  Plot  the  line  representing  starting  and  ending  z. 
it 

abl  ine( zl ,-1 ) 
abl  ine(z2,-1 ) 

# 

#  Shade  the  z  range. 

# 

hatch(c( nx,nx,( z2-mx) ,mx ,mx , ( zl -nx) ) , 
c((z1-nx) ,mx,mx,(z2-mx) ,nx,nx) , 
border=F) 

mtext(  s  ide=3,  line=1,  outer=T, 

"Plot  of  Z  =  X  +  Y  and  Range  of  Transform") 
mtext(  s  ide=1 ,  line=1,  outer=T, 

encode(  "Start  ing  Z:",z1,"  Ending  Z:",z2)) 
rm(x,y ,xx,yy ,zz,nz,mz) 

}) 

END 


MACRO  bvn1plot2(x,y,z,m,s,r,z1 ,z2,nx,mx,x1 ,x2) 

# 

#  This  macro  is  to  plot  the  pdf  contour  and  the  pdf  plane 

#  in  3  dimensional  plane. 

# 

Ct 

par(mfrow=c(  1 ,2) ,  oma=c(4, 0,4,0) ) 
mz  max(z) 

# 

t  Plot  the  contour 

# 

contour(x,y,z,  xl  io=c(nx,mx) ,  yl  im=c( nx,mx) ,  axes=F, 
xlab="X",  ylab="Y") 
axis(l)  ;  axis(2) 

# 

#  Plot  the  starting  and  ending  z  on  the  contour  plot. 

# 

abl  ine(z1 ,-t ) 
abl  ine( z2,-1 ) 


#  Shade  the  z  range. 

# 

hatch(c(nx,nx,(z2-mx) ,mx,mx, ( zl -nx) ) , 
c( (zl-nx) ,mx,mx,(z2-mx) ,nx,nx) , 
border=F) 

title(sub=encode( "Starting  Z:",z1,"  Ending  Z:",z2)) 

# 

#  Plot  the  pdf  plane  in  3  dimensional  plane. 

# 

persp( z/mz) 

title(sub=encode("Y(L)  &  X(R)  :  t" ,x1 ,x2 , "]") ) 
mtext(  side=3»  lineal,  outer=T, 

"Bivau'iate  Normal  PDF  Surface") 
mtext(side=1,  lineal,  outer=T, 

encode( "G iven  Mu  :",m,"  S  :",s,"  R  :",r)) 
rm( mz) 

}) 

END 


MACRO  bvn1plot3(cd,z,z1 ,z2,  i,x,y,w,nx,mx,m,s,r) 

# 

#  This  macro  is  to  plot  transformed  pdf  and  the  original 

#  pdf  contour. 

# 

(t 

par(mfhow=c(  1 ,2) ,  oma=c(5,3»1t»0)  ) 
z  inc_z[2]-z[ 1 ] 
pd  cd/zinc 

zz_rep(z,rep(2,(  i+1 ) ) ) 
hi_rep(pd,rep(2,  i) ) 
hi_c(0,hi,0) 
to  tpd  f_sum( cd ) 

# 

#  Plot  transformed  pdf. 

# 

plot(z[ 1 : i] ,pd,  type="h",  xlab="Z",  ylab="", 
yl  im=c(  0,max(  hi) ) ,  xl  im=c(  z[  1  ],z[  i+1]) , 
main=encode( "Total  PDF  =",totpdf), 
sub=encode( "Increment  of  Z  :",zinc),  err=-1) 

1  ines(zz,hi) 

mtext( s ide=2,  line=1,  outer=T,  "PDF") 

# 

#  Pot  pdf  contour  in  x-y  plane. 

# 

contour(x,y,w,  xl  im=c( nx,mx) ,  yl  im=c( nx,mx) ,  axes=F, 
xlab="X",  ylab="Y") 
ax  is(  1 )  ;  axis(2) 
for  (  j  in  1 :(  i+1)  )  l 
abline(z[j],-1) 

} 

title( sub=encode( "Starting  Z:",z1,"  Ending  Z:",z2)) 
mtext(  side=3»  1  ine=  1 ,  outer=T, 

"Transform  of  Bivariate  Normal  variable  with  Z  =  X  +  Y") 
mtext(  s  ide=1 ,  line=1,  outer=T, 

encodeC "G iven  Mu  S  :",s,"  R  :",r)) 

mtext( s ide=  1 ,  line=3»  outer=T, 

"This  is  the  overall  picture  for  transformation.  If  you  want  to  see 
the  picture  one  by  one,  hit  Return  at  every  time  GO?  appears") 

# 

#  Iterative  plot 

# 

par(oma=c(6,0,3,0) ,  omascCS^.^O) ) 
for(  j  in  1 :  i  )  ( 
to tpd f  sum(cd[ 1 : j] ) 
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#  Plot  cumulative  transformed  pdf. 

# 

plot(c(z[ 1 ] ,z[2:( j+1 ) ]) ,c(pd[ 1 ] ,pd[ 1 : j] ) ,  type="h",  xlab="Z", 
ylab="",  ylim=c(0,max(pd[1:j])),  xl  im=c(  z[  1  ]  ,z[  j+1  ] ) , 
main=encode( "Total  PDF  =  ",totpdf), 
sub=encode( "Increment  of  Z  zinc),  err=-1) 

1  ines(zzt  1 :( 1+2*  j)  ] ,  hi[  1 :( 1+2*  j)  ] ) 
hatch(c(zt jJ,z[ j],z[ j+1],z[ j+13), 
c(0,pd[ j] ,pd[ j] ,0) ) 
mtext(  s  ide=2,  line=1,  outer=T,  "PDF") 

# 

#  Plot  cumulative  pdf  contour  in  x-y  plane. 

# 

contour(x,y ,w,  xl  im=c(nx,mx) ,  yl  im=c(nx,mx) ,  axes=F, 
xlab="X",  ylab="Y") 
ax  is(  1 )  ;  ax  is(2) 
for  (  k  in  0:j  )  { 
abl  ine( z[k+1 ] ,-1 ) 

} 

# 

#  Compute  the  coordinates  for  the  current  plot  and  shade  the 

#  current  area  in  contour  plot. 

# 

x 1_max( nx , z [ j ] -mx ) 
x2_max( nx,z[ j+1 ]-mx) 
x3_min(mx,z[ j+1 ]-nx) 
xH_m  in(mx,z[ j]-nx) 

hatch(c(x1 px2,x3,x4) ,c(x4,x3,x2,x1 ) ,border=F) 
t  itle( sub=encode( "Start  ing  Z:",z[j],"  Ending  Z:",z[j+1])) 
mtext(  s  ide=3,  line=1,  outer=T, 

"Transform  of  Bivariate  Normal  variable  with  Z  =  X  +  Y") 
mtext(side=1 ,  lines'! ,  outer=T, 
encode( "Given  Mu  :",m,"  S  :",s,"  R  :",r)) 
mtext(side=1 ,  line=3,  outer=T, 
encode( "When  Z  =",z[j],"  PDF  =",pd[j])) 

} 

rm(  z  inc ,  pd ,  zz ,  h  i,  x  1 ,  x2 ,  x3 , x4 ,  to  tpd  f) 

}) 


MACRO  bvn2tran( 
mu/?PROMPT(Mean  value  :  )/, 
sg/?PROMPT(  Sigma  value  :  )/, 
rv/?PROMPT(Coef  of  R  :  )/, 

it/? PR0MPT( Number  of  intervals  you  want  to  divide  the  Z  range 
chapter 
({ 

#  This  is  a  Macro  to  transform  bivariate  normal 

#  variables  with  the  form  of  z  =  x'Z  +  y~2 

t 

?MESSAGE(  B  ivar  iate  normal  variables  will  be  drawn  from) 
?MESSAGE{  identical  distribution.  For  best  result,) 
?MESSAGE( -5  <=  Mu  <=  5,  Sigma  <=3) 

?MESSAGE( ) 

?T(m)_mu 
?T( s)_sg 
?T(r)  rv 

?T(zl7_(  max( 0, (?T(m)-3*?T( s) ) )  )*2 
?T(z2)_(?T(m)+3*?T(s))"2 

# 

#  Range  of  Z  will  be  from  (max(  0, (Mu-3*S) )  )~2  to  (Mu+3*sr2, 

#  because  it  will  give  clear  plotting. 

# 

?MESSAGE( ) 

?MESSAGE(Note  :) 

?MESSAGE(The  range  of  Z  will  be  fhom 

(max(0,(Mu-3*S)))"2  to  (Mu+3*S),'2. ) 

?MESSAGE( ) 

?T(  i)_it 

?T( z)  seq(?T(z1 ) ,?T(z2) ,len=(?T(  i)  +  1)) 

?T( zsT_sqrt( ?T( z) ) 

?T(x1)_?T(m)-3*?T(s) 

?T(x2)_?T(m)+3*?T(s) 

?T(mx)_max( abs(?T(x1 ) ) , abs(?T(x2) ) ) 

?T(cx)_rep(0,?T(  i)+1) 

# 

#  Call  macro  to  plot  the  z=x''2+y'*2  (3  dimensional  plot)  and 

#  the  range  of  z  in  terms  of  x  and  y  dimension. 

# 

?bvn2plot1(?T(z1),?T(z2) ,?T( zs) ,?T( cx) ,?T(m) ,?T(s) , 

?T(x1 ) , ?T(x2) ,?T(mx) ) 

#  To  3et  the  range  of  X 
?T(x)_seq(?T(x1 ) ,?T(x2) ,len=1 1 ) 

#  To  se7  the  range  of  Y 
?T(y)  ?T( x) 

?T(xr7  rep(?T(x) ,rep( 1 1 , 1 1 )) 

?T(yr)~rep(?T(y) ,11) 
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#  Compute  the  pdf  to  plot  the  contour  and  the  3-dimensional 

#  p  ic  ture . 

# 

?T( w)_?db  inorml (?T(m) ,?T(s) ,?T(m) ,?T(s) ,?T(r) ,?T(xr) ,?T(yr) ) 
?T(w)~matr ix(?T(w) ,11,1 1 ,byrow=T) 

# 

#  Call  macro  to  plot  contour  and  3-dimensional  picture. 

# 

?bvn2plot2(?T(x) ,?T(y) ,?T(w) ,?T(m) ,?T( s) ,?T(r) ,?T(z) ,?T(zs) , 

?T( mx) ,?T( cx) ,?T(  i)  ,?T(x1 ) ,?T(x2) ) 

# 

#  Compute  the  volume  under  the  given  area  by  calling  the  imsl 

#  library  for  double  integration  v  ia  S  extention  function. 

# 

?T(cd)_bvnorm2(?T(m) ,?T(  s) ,?T(m) ,?T(  s) ,?T(r) ,?T(  i) ,?T(z) ) 

# 

#  Call  macro  to  plot  the  estimated  pdf  for  transformed  variable  z, 

#  and  the  pdf  contour  for  x  and  y. 

# 

?bvn2plot3(?T(cd),?T(z),?T(zs),?T(  i)  ,?T(x) ,?T(y) ,?T(w) , 

?T(m) ,?T( s) ,?T( r) ,?T(mx)) 

rm(?T(m) ,?T( s) ,?T(z1 ) ,?T(z2) ,?T(zs) ,?T(  i) ,?T(r) ,?T(cd) , 

?T(x) ,?T(y) ,?T( w) ,?T( xr) ,?T(yr) ,?T( z) ,?T( cx) ,?T(mx) ) 

}) 

END 
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MACRO  bvn2plot1(z1 ,z2,zs,cx,m,s,x1 ,x2,mx) 

# 

#  This  macro  is  to  plot  relationship  between  z  and  x,y  and 

#  the  range  of  z  in  terms  of  x  and  y. 

t 

(t 

x_seq(x1 ,x2,len=1 1 ) 
xp_c( -mx ,mx) 
y_x 

xx_rep(x,rep( 11,11)) 
yy_rep(y, 11) 

xx_matr ix(xx, 1 1 , 1 1 ,byrow=T) 
yy_matr ix(yy, 1 1 , 1 1 ,byrow=T) 
zz_xx~2+yy~2 

# 

#  Plot  the  "z"  in  the  3  dimens inal  plane. 

# 

mz_max( zz) 

par(mfTow=c( 1 ,2) ,  oma=c(4, 0,4,0) ) 
persp(zz/mz) 

t itle( sub=encode( "Y( L)  &  X(R)  [",x1 ,x2,"]") ) 

# 

#  Plot  the  x  and  y  ax  is 

# 

plot(xp,xp,type="n",  xlab="X",  ylab="Y") 
title(  sub=encode(  "Given  Mu  :",m,"  S  :",s)) 

# 

#  Plot  the  line  representing  Mean  value. 

# 

abl  ine( v=m) 
abl  ine( h=m) 

# 

#  Plot  the  circle  representing  range  of  z. 

# 

symbols(cx,cx,c  ircle=zs,  add=T,  inches=F,  err=-1) 
mtext( s ide=3,  1  ine=  1 ,  outer=T, 

"Plot  of  Z  =  X"2  +  Y~2  and  Range  of  Transform") 
mtext(  s  ide=1 ,  line=1,  outer=T, 

encode( "Starting  Z:",z1,"  Ending  Z:",z2)) 
rm(x,y,xx,yy,zz,mz,xp) 

}) 
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MACRO  bvn2plot2(x,y,w,m,s,r,z,zs,mx,cx,  it,x1 ,x2) 

# 

#  This  macro  is  to  plot  the  pdf  contour  and  the  pdf  plane 

#  in  3  dimensional  plane. 

# 

({ 

par(mfrow=c(  1 ,2) ,  oma=c(4, 0,4,0) ) 
mw_max( w) 

# 

#  Plot  the  pdf  contour. 

# 

contour(x,y,w,  xl  im=c( -mx,mx) ,  yl  im=c( -mx,mx) , 
xlab="X" ,  ylab="Y") 

# 

#  Plot  the  circle  representing  range  z  in  pdf  contour  plot. 

# 

symbols(cx,cx,c ircle=zs,  add=T,  inches=F,  err=-1) 

title(  sub=encode(  "Start  ing  Z:",z[1],"  Ending  Z: "  ,z[  it+1  ] ) ) 

# 

#  Plot  the  pdf  plane  in  3  dimensional  plane. 

# 

persp( w/mw) 

title(sub=encode("Y(L)  &  X(R)  :  [B,x1 ,x2,"]") ) 
mtext(  s  ide=3 ,  line=1,  outer=T, 

"Bivariate  Normal  PDF  Surface") 
mtext(3ide=1 ,  1  ine=1 ,  outer=T, 

encode( "Given  Mu  :",m,"  S  :",s,"  R  :",r)) 
rm(mw) 

}) 
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MACRO  bvn2plot3(cd,z,zs,  i,x,y,w,m,s,r,mx) 

# 

#  This  macro  is  to  plot  transformed  pdf  and  the  original 

#  pdf  contour. 

# 

({ 

par(mfrow=c(  1 ,2) ,  omascCS.S^O)  ) 

z  inc_z[2]-z[ 1 ] 

cd_cd [ 2 : (  i+1 )  ]-cd[  1 :  i] 

pd_cd/z  inc 

zz_rep(z,rep(2,(  i+1))) 
h  i_rep(  pd ,  rep(  2 ,  i) ) 
hi_c(0,hi,0) 
totpdf_sum(cd) 

# 

#  Plot  the  transformed  pdf. 

# 

plot(z[  1 :  i]  ,pd,  type="h",  xlab="Z",  ylab="", 
yl  im=c(0,max(  hi) ) ,  xl  im=c(  z[  1  ]  ,z[  i+1  ] ) , 
main=encode( "Total  PDF  =  ",totpdf), 
sub=encode( "Increment  of  Z  :",zinc),  err=-1) 
lines(zz,hi) 

mtext(  s  ide=2,  lineal,  outer=T,  "PDF") 

# 

#  Plot  the  pdf  contour  in  x-y  plane 

# 

contour(x,y,w,  xl im=c( -mx,mx) ,  yl im=c( -mx,mx) , 
xlaba"X",  ylab="Y") 

# 

#  Plot  the  circle  representing  range  z  on  the  contour 

#  plot. 

# 

symbols(c(0,0) ,c(0,0) ,c ircle=c(zs[ 1  ]  ,zs[  i+1  ] ) , 
add=T,  inchesaF,  err=-1 ) 

title(sub=encode(  "Starting  Z:",z  [1],"  Ending  Z:",z[i+1])) 
mtext(  side=3»  lineal,  outer=T, 

"Transform  of  Bivariate  Normal  variable  with  Z  =  X~2  +  Y~2") 
mtext( side=  1 ,  lineal,  outeraT, 

encode( "Given  Mu  :",m,"  S  :",s,"  R  :",r)) 
mtext(  side=  1 ,  line=3,  outeraT, 

"This  is  the  overall  picture  for  transformation.  If  you  want  to  see 
the  picture  one  by  one,  hit  Return  at  every  time  GO?  appears") 

# 

#  Iterative  plot. 

# 

for(  j  in  1 :  i  )  { 
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#  Plot  cumulative  transformed  pdf. 

# 

par(mfhow=c(  1 ,2) ,  omasc^.B.^.O) ) 
totpdf  sum(cd[1:J]) 

plot(cTz[1],z[2:(j+1)3),c(pd[1],pd[1:j]),  type=nh",  xlab="Z", 
ylab=n",  yl im=c(0,max( pd[ 1 : j] ) ) ,  xl  im=c( z[ 1 ] ,z[ j+1 ] ) , 
main=encode( "Total  PDF  =  ",  totpdf), 
subaencode( "Increment  of  Z  zinc),  err=-1) 

1  ines(zz[  1 :( 1+2* j)  ] ,  hi[  1 :( 1+2*  j)  ] ) 
hatch(c(z[ j] ,z[ j] ,z[ j+1 ] ,z[ j+1 ] ) , 
c(0,pd[ j] ,pd[ j] ,0) ) 
mtext(  s  ide=2,  line=1,  outer=T,  "PDF") 

# 

#  Plot  cumulative  pdf  plane  in  x-y  plane. 

# 

contour(x,y ,w,  xl im=c( -mx ,mx) ,  yl  im=c( -mx,mx) , 
xlab="X",  ylab="Y") 

# 

#  Plot  the  circle  representing  the  current  z  range  on 

#  the  contour  plot. 

# 

symbols( c( 0,0) ,c(0,0) ,c ircle=c( zs[ j] ,zs[ j+1 ] ) ,  add=T,  inches=F 
err=-1 ) 

title(sub=encode( "Starting  Z:",zCj],"  Ending  Z:",z[j+1])) 
mtext(  side=3,  line=1,  outer=T, 

"Transform  of  Bivariate  Normal  variable  with  Z  =  'Cl  +  Y“2") 
mtext(  side=1 ,  linesl,  outeraT, 
encode( "Given  Mu  :",m,"  S  :",s,"  R  :",r)) 
mtext(  side=1 ,  line=3,  outer=T, 
encode("When  Z  =",z[j],"  PDF  =",pd[j])) 

} 

rro(  z  inc ,  pd ,  zz ,  h  i,  totpd  f) 
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MACRO  bvultranC 

it/? PR0MPT( Number  of  intervals  you  want  to  divide  the  Z  range  :  )/ 
chapter 
({ 

#  This  is  a  Macro  to  transform  bivariate  uniform 

#  variables  with  the  form  of  z  =  x  +  y 

# 

?MESSAGE( ) 

?MESSAGE(  Range  of  Z  will  be  from  0  to  2.) 

?MESSAGE( ) 

?T(  i)_it 

?T(z)_seq(0,  2  ,len=( ?T(  i)+l )  ) 

# 

#  Call  macro  to  plot  the  z=x+y  (3  dimensional  plot)  and 

#  the  range  of  z  in  terms  of  x  and  y  dimension. 

# 

?bvu1plot1( ?T( i) ,?T( z) ) 

# 

#  Compute  the  volume  under  the  given  area  by  calling  the  imsl 

#  library  for  double  integration  v  ia  S  extention  function. 

# 

?T( cd)_bvun ift ?T(  i),?T(z)) 

# 

#  Call  macro  to  plot  the  estimated  pdf  for  transformed  variable  z 

# 


?bvu1plot3(?T(cd),?T(z),?T(  i)) 
rm( ?T( z)  ,?T(  i),?T(cd)) 


»  I.-.  \  v  V  ^  ■*. 


MACRO  bvu2tran( 

it/? PROMPTC Number  of  intervals  you  want  to  divide  the  Z  range  :  )/) 
chapter 
({ 

#  This  is  a  Macro  to  transform  bivariate  uniform 

#  variables  with  the  form  of  z  =  x~2  +  y“2 

# 

?MESSAGE( ) 

?MESSAGE(  Range  of  Z  will  be  from  0  to  2.) 

?MESSAGE( Choose  range  of  Z  and  number  of  intervals.) 

?MESSAGE( ) 

?T(  i)  it 

?T(z)~seq(0,  2  ,len=(?T(  i)+1 )  ) 

?T(zsT_sqrt(?T(z) ) 

# 

#  Call  macro  to  plot  the  z=x~2+y"'2  (3  dimensional  plot)  and 

#  the  range  of  z  in  terms  of  x  and  y  dimension. 

# 

?bvu2plot1(?T( i) , ?T(  z) ,?T(zs)) 

# 

4  Compute  the  volume  under  the  given  area  by  calling  the  imsl 
4  library  for  double  integration  v  ia  S  extention  function. 

4 

?T(cd)_bvunif2(?T(  i),?T(z)) 

4 

4  Call  macro  to  plot  the  estimated  pdf  for  transformed  variable  z. 

4 

?bvu2plot3(?T(cd),?T(z) ,?T(zs) ,?T(  i) ) 
rm(?T( z) ,?T( zs) ,?T(  i),?T(cd)) 

)) 

END 
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MACRO  bvulplotl (  it,z) 

# 

#  This  macro  is  to  plot  relationship  between  z  and  x,y  and 

#  the  range  of  z  in  terms  of  x  and  y. 

# 

({ 

x_seq(0, 1 ,len=1 1 ) 
y_x 

xx_rep(x,rep( 11,11)) 
yy_rep(y, 1 1 ) 

xx_matr ix(xx, 1 1 , 1 1 ,byrow=T) 
yy_matr ix(yy, 1 1 , 1 1 ,byrow=T) 
zz_xx+yy 
mz_max( zz) 

par(mfrow=c(  1 ,2) ,  oma=c(J4, 0,4,0)) 

# 

#  Plot  the  z  in  3  dimensional  plane. 

# 

persp(zz/mz) 

title( subs"Y( L)  &  X(R)  :  [  0  1  ]") 

# 

#  Plot  the  x-y  axis. 

# 

plot( c(-1,2),c(-1,2), types "n",  xlab="X",  ylab="Y") 
title( sub=  "Bivariate  Uniform  (0  1)") 

# 

#  Plot  the  line  x=0  A  ysO. 

# 

abl  ine( vsO) 
abl  ine( hsO) 

# 

#  Plot  the  range  of  z  in  x-y  plane. 

# 

abl ine( z[  it+1 ] , -1 ) 

# 

#  Shade  the  area  representing  the  defined  uniform 

#  distribution  range. 

# 

hatch(c( 0,0, 1,1), c(0, 1,1,0),  borders!) 
mtext(  sides3,  linesi,  outersT, 

"Plot  of  Z  s  X  +  Y  and  Range  of  Transform") 
mtext(  s  idesl ,  linesi,  outersT, 

"Starting  Z  :  0  Ending  Z  :  2") 
rm(x,y,xx,yy,zz,mz) 


MACRO  bvu1plot3(cd,z, i) 

# 

#  This  macro  is  to  plot  transformed  pdf  and  the  original 

#  pdf  contour. 

# 

({ 

par(mfrow=c(  1 ,2) ,  0013=0(5,3, 4»0)  ) 

zinc  z[2]-z[1] 

td_cTo , cd [ 1 :  (  i- 1 ) ] ) 

cd_cd-td 

pd_cd/z  inc 

zz_rep( z,rep(  2, i+1 ) ) 

hi_rep(pd,rep(2,  i) ) 

hi_c(0,hi,0) 

totpdf_sum(cd) 

# 

#  Plot  the  transformed  pdf. 

# 

plot(z[ 1 : i] ,pd,  type= "h",  xlab="Z”,  ylab="”, 
yl  im=c(  0,max(  hi) ) ,  xl  im=c(  z[1],z[  i+1]), 
main=encode(  "Total  PDF  =n,totpdf), 
sub=encode( "Increment  of  Z  :",zinc),  err=-1) 

1  ines(  zz,hi) 

mtext(  s  ide=2,  line=1,  outer=T,  "PDF") 

# 

#  Plot  the  range  of  z  in  x-y  plane. 

# 

plot( c(0,0,1,1,0),c( 0,1, 1,0,0), types "1" , 
xl  im=c( -1 ,2) ,  yl  im=c( -1 ,2) ,  xlab="X",  ylab="Y") 

# 

#  Plot  the  line  representing  range  of  z. 

# 

for(  j  in  1 :(  i+1))  { 
abline(z[  j],-1) 

} 

title(sub=encode(  "Starting  Z:",z[1],"  Ending  Z:",z[i+1])) 
mtext(  s  ide=3,  line=1,  outer=T, 

"Transform  of  Bivariate  Uniform  variable  with  Z  =  X  +  Y") 
mtext(side=1 ,  line=1,  outer=T, 

"Bivariate  Uniform  (01)") 
mtext(  3ide=1 ,  line=3»  outer=T, 

"This  is  the  overall  picture  for  transformation.  If  you  want  to  see 
the  picture  one  by  one,  hit  Return  at  every  time  GO?  appears") 

# 

#  Iterative  plot 

# 


for(  j  in  1 :  i  )  { 


it  Plot  the  cumulative  transformed  pdf. 

# 

par(mfrow=c(  1 ,2) ,  omarcCS^.^.O) ) 
totpdf  sum(cd[  1 : j]) 

plot( cTz[ 1 ] ,z[2 :( j+1 ) ] ) ,c( pd[ 1 ] ,pd[ 1 : j] ) ,  type="h",  xlab="Z", 
ylab="",  ylim=c(0,max(pd[1:j])),  xl  im=c( z[ 1 ] ,z[ j+1 3 ) , 
main=encode(  "Total  PDF  =  ",  totpdf), 
sub=encode( "Increment  of  Z  zinc),  err=-1) 

1  ines(zz[  1 :( 1+2*  j)  ] ,  hi[  1 :(  1+2* j) ]) 
mtext(  s  ide=2,  line=1,  outer=T,  "PDF") 

# 

#  Shade  current  pdf. 
it 

hatch( c( z[ j] ,z[ j] ,z[ j+1 ] ,z[ j+1 ]) , 
c(0,pd[ j  3 ,pdC j],0)) 

* 

#  Plot  the  area  representing  defined  uniform  distribution. 

# 

plot( c( 0, 0, 1 , 1 ,0) ,c( 0,1, 1,0,0), type= "1", 
xlab="X" ,  ylab="Y") 

# 

it  Plot  the  range  of  z 
# 

for(  k  in  1 :  (  J+1 ) )  { 
abl  ine( z[k] ,-1 ) 

} 

# 

it  Shade  the  current  area. 

# 

hatch(c(max(0,z[j]-1),max(0,z[ j+1 ]-1 ) ,m in( z[ j+1 ] , 1 ) ,m  in( z[ j ] , 1 ) ) 
c(min(  1  ,z[  j] )  ,min(  1  ,z[  j+1  ] )  ,max(  0,z[  j+1  ]-1 )  ,max(  0,z[  j]-1 ) ) 
border=F) 

title(sub=encode( "Starting  Z:",z[j],"  Ending  Z:",z[j+1])) 
mtext(  s  ide=3 ,  line=1,  outer=T, 

"Transform  of  Bivariate  Uniform  variable  with  Z  =  X  +  Y") 
mtext(  s  ide=  1 ,  line=1,  outer=T, 

"Bivariate  Uniform  (  0  1  )") 
mtext(  s ide=  1 ,  line=3,  outer=T, 
encode( "When  Z  =",ztj],"  PDF  =",pd[j])) 

} 

rm(  z  inc ,  pd  ,  td  ,zz ,  h  i,  totpd  f) 


MACRO  bvu2plot1(  it,z,zs) 

# 

#  This  macro  is  to  plot  relationship  between  z  and  x,y  and 

#  the  range  of  z  in  terms  of  x  and  y. 

# 

(t 

x_seq( 0, 1 ,len=1 1 ) 
y_x 

xx_rep(x,rep( 1 1 , 1 1 ) ) 
yy_rep(y, 1 1 ) 

xx_matr ix( xx, 11,11 ,byrow=T) 
yy_matr ix(yy, 11,11 ,byrow=T) 
zzjcx*2+yy*2 
mz_max( zz) 

par(mfrow=c(  1 ,2) ,  oma=c(4, 0,^,0) ) 

# 

#  Plot  the  z  in  3  dimensional  plane. 

# 

persp(zz/mz) 

t itle( sub="Y( L)  &  X(R)  :  [  0  1  ]n) 

# 

#  Plot  the  x-y  axis. 

# 

plot(c(-2,2) ,c(-2,2) ,type="n",  xlab="X",  ylab="Y") 
title(sub= "Bivariate  Uniform  (  0  1  )") 

# 

#  Plot  the  line  representing  x=0  &  y=0. 

# 

abl  ine(v=0) 
abl  ine( h=0) 
cx_rep(  0, it+1 ) 

# 

#  Plot  the  circle  representing  range  of  z. 

# 

symbols(cx,cx,c  ircle=zs,  add=T,  inches=F,  err=-1) 
hatch(c(0, 0,1,1),  c(0, 1,1,0)) 
mtext(side=3,  line=1,  outer=T, 

"Plot  of  Z  =  X“2  +  Y~2  and  Range  of  Transform") 
mtext( s ide=1 ,  line=1,  outer=T, 

"Starting  Z  :  0  Ending  Z  :  2") 
rm( x , y , xx , yy , zz , mz , cx ) 


MACRO  bvu2plot3(cd,z,zs, i) 

# 

#  This  macro  is  to  plot  transformed  pdf  and  the  original 

#  pdf  contour. 

# 

({ 

par(mfrow=c( 1 ,2) ,  oma=c(5,3<^>0)  ) 

zinc  z[2]-z[1] 

td_cTo,cd[  1 :(  i-1 ) ] ) 

cd_cd-td 

pd_cd/z  inc 

zz_rep(z,rep(2, i+1 ) ) 

hi_rep(pd,rep(2,  i) ) 

hi_c(0,hi,0) 

totpd  f_sum(cd) 

# 

#  Plot  the  transformed  pdf. 

# 

plot(  z[  1 :  i]  ,pd,  type="h",  xlab="Z",  ylab="", 
yl  im=c(  0,max(  hi) ) ,  xl  im=c<  z[ 1 ] ,z[  i+1] ) , 
main=encode( "Total  PDF  =", totpd f), 
sub=encode( "Increment  of  Z  :",zinc),  err=-1) 

1  ines(  zz,hi) 

mtext( s ide=2,  line=1,  outer=T,  "PDF") 

# 

#  Plot  the  area  representing  defined  uniform  distribution 

#  range. 

# 

plot(c(0,0, 1,1,0) ,c( 0,1, 1,0,0), type="l", 
xl im=c( -2,2) ,  yl  im=c(-2,2) ,  xlab="X",  ylab="Y") 

* 

#  Plot  the  circle  representing  current  range  of  z. 

# 

symbols(c( 0,0) ,c(0,0) ,c ircle=c(  zs[ 1 ] ,zs[ i+1 ] ) , 
add=T,  inches=F,  err=-1) 

t itle( sub=encode( "Start ing  Z:",z[1],"  Ending  Z:",z[i+1])) 
mtext( s ide=3»  lineal,  outer=T, 

"Transform  of  Bivariate  Uniform  variable  with  Z  =  X~2  +  Y^") 
mtext( 3ide=1 ,  lineal,  outer=T, 

"Bivariate  Uniform  (01)") 
mtext(  s  idea  1 ,  linea3,  outeraT, 

"This  is  the  overall  picture  for  transformation.  If  you  want  to  see 
the  picture  one  by  one,  hit  Return  at  every  time  GO?  appears") 

# 

#  Iterative  plot 

# 


for(  j  in  1 :  i  )  { 


# 

#  Plot  the  cumulative  transformed  pdf. 

# 

parCmfrowscC  1 ,2) ,  omasc(5, 3,4,0) ) 
totpdf  sum(cd[1:j]) 

plot( cTzC 1],z[2:(j+1)]),c(pd[1],pd[1:j]),  type="h",  xlab="Z", 
ylabs"",  yl im=c(0,max(pd[ 1 : j])) ,  xl  im=c( z[ 1 ] ,z[ j+1 ] ) , 
main=encode( "Total  PDF  s",  totpdf), 
sub=encode( "Increment  of  Z  zinc),  err=-1) 

1  ines(zz[  1 :( 1+2* j)] ,  hi[  1 :( 1+2*  j)  ]) 
mtext(side=2,  line=1,  outer=T,  "PDF") 

# 

#  Shade  the  current  transformed  pdf. 

# 

hatch(c(z[ j] ,z[ j] ,z[ j+1 ] ,z[ j+1 ]) , 
c(0,pd[ j  3 , pdC j] ,0) ) 

# 

#  Plot  the  area  representing  defined  uniform  distribution 

#  range. 

# 

plot(c(0,0, 1 , 1 ,0) ,c(0, 1 , 1 ,0,0) , type="l", 
xl  im=c( -2,2) ,  yl  im=c(-2,2) ,  xlab="X",  ylab="Y") 

# 

#  Plot  the  circle  representing  current  range  of  z. 

# 

3ymbols(c( 0,0) ,c(0,0) ,c  ircle=c(zs[ j] ,zs[ j+1 ] ) ,  add=T,  inches=F, 
err=-1 ) 

title(sub=encode( "Starting  Z:",z[j],"  Ending  Z:",z[j+1])) 
mtext( s ide=3,  line=1,  outer=T, 

"Transform  of  Bivariate  Uniform  variable  with  Z  =  X~2  +  Y“2") 
mtext(side=1 ,  line=1,  outer=T, 

"Bivariate  Uniform  (  0  1  )") 
mtext(  sides  1 ,  line=3,  outersT, 
encode("When  Z  s",z[j],"  PDF  =",pd[j])) 

J 

rm(  z  inc ,  pd ,  td ,  zz ,  h  i,  to  tpd  f) 
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MACRO  bvcplot1(x,y,dfx,dfy,dft') 

# 

#  This  macro  Is  to  plot  relationship  between  z  and  x,y  and 

#  the  range  of  z  In  terms  of  x  and  y. 

# 

({ 

xx  rep(x,rep( 10, 10) ) 
yy~rep(y, 10) 

xxjnatr  lx(xx, 10, 10,byrow=T) 
yy_matr ix(yy, 10, 10,byrow=T) 
zz_xx/yy 
mz  max(zz) 

# 

#  Plot  the  z  In  3  dimensional  plane. 

# 

par(mfrow=c( 1 ,2) ,  oma=c( 4, 0,4,0) ) 
perspC  zz/mz) 

title(sub="Y(L)  &  X(R)  :  C  0.0001  2  ]") 

Plot  x-y  axis. 

plot(x,y,  type="n",  axes=F,  xlab="X",  ylab="Y") 
axis(1)  ;  axis(2) 
f  tltle(sub=encode(  "Given  DFx  :",dfx,"  DFy  :",dfy)) 

#  Plot  the  range  of  z  In  x-y  plane. 

# 

abline(0,1/(7#dfr)) 

abllne(v=0) 

# 

#  Shade  the  range  of  z  In  x-y  plane. 

# 

hatch(c(0,0,2,2) ,c(  0,2,2, 2/(  7*dfr) ) ,border=F) 
mtext(  side=3,  1  ine=  1 ,  outer=T, 

"Plot  of  Z  =  (X/DFx)  /  (Y/DFy)  and  Range  of  Transform") 
mtext(  s  ide=1 ,  llne=1,  outer=T, 

encode( "Starting  Z:",0,"  Ending  Z:",7)) 
rm(xx,yy,zz,mz) 

}) 

END 
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MACRO  bvcplot2(x,y,w,dfx,dfy,dfr) 

# 

#  This  macro  is  to  plot  the  pdf  contour  and  the  pdf  plane 

#  in  3  dimensional  plane. 

# 

({ 

par(mfhow=c( 1 ,2) ,  oma=c(4, 0,4,0) ) 
mw_max(w) 

# 

#  Plot  the  pdf  contour  in  x-y  plane. 

# 

contour(x,y,w,  axes=F,  xlab="X",  ylab="Yn) 
ax  is(  1 )  ;  axis(2) 

# 

#  Plot  the  range  of  z  n  x-y  plane. 

# 

abl  ine( v=0) 
abline(0,1/(7»dfr)) 

t 

#  Shade  the  range  of  z. 

# 

hatch(c( 0,0,2 ,2) ,c( 0,2,2,2/( 7*d fr) ) ,  border=F) 
title( sub="Starting  Z  :  0  Ending  Z  :  7") 

# 

#  Plot  the  pdf  plane  in  3  dimensional  plane. 

# 

persp( w/mw) 

title(sub="Y(L)  &  X(R)  2  [  0.0001  2  )") 

mtext(  side=3,  linesl,  outer=T, 

"Bivariate  Chisquare  PDF  Surface") 
mtext(side=1,  1  ine=  1 ,  outer=T, 

encodeC  iiven  DFx  :",dfx,"  DFy  :",dfV)) 
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MACRO  bvcplot3(cd,z,  i,x,y,w,dfx,dfy,dfr) 

# 

#  This  macro  is  to  plot  transformed  pdf  and  the  original 

#  pdf  contour. 

# 

({ 

par(mfrow=c(1,2),  oma=c(5,3>4,0)  ) 

z inc_z[2]-z[ 1 ] 

pd_cd/z inc 

totpdf  sum(cd) 

zz_repTz,rep(2,(  i+1))) 

hi_rep(pd,rep(2,  i)) 

hi_c(0,hi,0) 

# 

#  Plot  the  transformed  pdf 

# 

plot(z[  1 :  i] ,pd,  type="h",  xlab="Z",  ylab="", 
yl  im=c(0,max(  hi) ) ,  xl im=c( z[ 1 ] , z[  i+1 ] ) , 
main=encode( "Total  PDF  =", totpdf), 
sub=encode( "Increment  of  Z  :",zinc),  err=-1) 

1  ines(zz,hi) 

mtext(  side=2,  line=1,  outer=T,  "PDF") 

# 

#  Plot  the  pdf  contour  in  x-y  plane. 

# 

contour(x,y,w,  axes=F,  xlab="X",  ylab="Y"  ) 
axis(1)  ;  axis(2) 

# 

4  Plot  the  range  of  z  on  the  contour  plot. 

4 

for  (  j  in  2:(  i+1 )  )  { 
abl  ine(0, 1/(z[ j]*dfl?) ) 

} 

title(sub=  "Star ting  Z  :  0  Ending  Z  :  7") 
mtext(side=3,  line=1,  outer=T, 

"Transform  of  Bivariate  Chisquare  variable 
with  Z  =  ( X/DFx)  /  (Y/DFy)") 
mtext(  s  ide=1 ,  line=1,  outer=T, 

encode(  "Given  DFx  :",dfx,"  DFy  :",dfy)) 
mtext( s ide=1 ,  line=3,  outer=T, 

"This  is  the  overall  picture  for  transformation.  If  you  want  to  see 
the  picture  one  by  one,  hit  Return  at  every  time  GO?  appears") 

# 

4  Iterative  Plot 

4 

for(  j  in  1 :  i  )  { 

par(mfhow=c(  1 ,2) ,  oma=c(5,3,4,0) ) 

totpdf  sum( cd[  1 : j] ) 
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#  Plot  the  cumulative  transformed  pdf. 

# 

plot(c(z[1],z[2:( j+1)]),c(pd[1],pd[1:j]),  type="h",  xlab="Z" 
ylab="",  ylim=c(0,max(pd[1 :j])),  xl  im=c( z[ 1 ] ,z[ j+1 ] ) , 
main=encode(  "Total  PDF  =",totpdf), 
sub=encode( "Increment  of  Z  :",  zinc),  err=-1) 

1  ines(zz[  1 :( 1+2* j) ] ,  hi[  1 :( 1+2*  j)  ] ) 
mtext(  side=2,  line=1,  outer=T,  "PDF") 
t 

#  Shade  current  pdf 

# 

hatch(c(zt j] ,z[ j] ,z[ j+1 ] ,z[ j+1 ]) , 
c(0,pd[ j],pd[ j],0)) 

# 

#  Plot  the  pdf  contour. 

# 

contour(x,y,w,  axes=F,  xlab="X",  ylab="Y") 
ax  is(  1 )  ;  ax  is(2) 

title(sub=encode( "Starting  Z:",z[j],"  Ending  Z:",ztj+1])) 

# 

#  Plot  the  cumulative  range  of  z. 

# 

for  (  k  in  1 :  j  )  { 

abl  ine(  0,1/(z[k+1]*dfr)) 

} 

# 

#  Compute  the  coord  inates  for  current  z  range  and 

#  shade  the  current  z  range. 

# 

x1_min(2,2*z[  j]*dfr) 
x2_min(2,2*z[j+1]*dfr) 
y1_min(2,2/max( .000001 ,z[j]*dfr)) 
y2_m  in(2,2/(z[  j+1  ]*dfr) ) 

hatch(c(0,x1 ,x2) ,  c(0,y1 ,y2) ,border=F,  angle=135) 
mtext(  s  ide=3,  line=1,  outer=T, 

"Transform  of  Bivariate  Chisquare  variable 
with  Z  =  (X/DFx)  /  ( Y/DFy) ") 
mtext( s ide=1 ,  lineal,  outer=T, 

encode("DFx  :",dfic,"  DFy  :",dfy)) 
mtext(side=1 ,  line=3,  outer=T, 

encode( "When  Z  =",z[j],"  PDF  =",pd[j])) 

} 

rm(  z  inc , pd , zz ,  h  i, x  1 , x2  ,y  1  ,y2 ,  to tpd  f) 

}) 


MACRO  bvncplot1(x,y,df,my) 

# 

#  This  macro  Is  to  plot  relationship  between  z  and  x,y  and 

#  the  range  of  z  in  terms  of  x  and  y. 

# 

({ 

xx_rep( x , rep( 11,11)) 
yy_rep(y, 1 1 ) 

xx_matr ix(xx, 1 1 , 1 1 ,byrow=T) 
yy_matr ix(yy, 1 1 , 1 1 ,byrow=T) 
zz_xx/yy 
mz_max( zz) 

par(mfrow=c(  1 ,2) ,  oma=c(6, 0,2,0) ) 

# 

#  Plot  z  in  3  dimensional  plane. 

# 

persp( zz/mz) 

title(  subs  "Y[  Left  3  X[Right3") 

# 

#  Plot  the  x-y  axis. 

# 

plot(x,y,type="n",  axessF,  xlab="X",  ylab="Y", 
yl  im=c(0,my)) 
axis(1)  ;  axis(2) 

# 

t  Plot  the  range  of  z  in  x-y  plane. 

# 

abl  ine(0,-1/4) 
abl  ine( 0,  1/4) 

# 

t  Shade  the  z  range 

# 

hatch(c(0,-3,-3,3,3) ,  c(0, 3/4, my, my, 3/4),  border=F) 
mtext(  side=3»  line=0,  outer=T, 

"Plot  of  T  =  X  /  Y  and  Range  of  Transform") 
mtext(  sides  1 ,  linesl,  outersT, 

encode(  "X  s  N(0,1)  Y  s  SQRT(  Chisquare[  DF:",df,"]  /",df 
")")) 

mtext(  s  idesl ,  lines3,  outersT, 

encode( "X  :  [  -3  3  3  Y  :  [  0",y[ 1 1 ] , "3") ) 

mtext( sides  1 ,  lines5,  outersT, 

"Starting  T  :  -4,  Ending  T  :  4") 
rm(xx,yy ,zz,mz) 


MACRO  bvncplot2(x,y,w,df,my) 

# 

#  This  macro  Is  to  plot  the  pdf  contour  and  the  pdf  plane 

#  in  3  dimensional  plane. 

# 

({ 

par(mfrow=c(  1 ,2) ,  oma=c( 3>0,2,0) ) 
mw_max(w) 

# 

#  Plot  the  pdf  oontour 

# 

contour(x,y,w,  axes=F,  yl  im=c(0,my) , 
xlab="X",  ylab="Y") 
ax is(  1 )  ;  ax is(2) 

# 

#  Plot  the  range  of  z  in  x-y  plane. 

# 

abl  ine(0,-1/4) 
abline(0,  1/4) 

# 

#  Shade  the  z  range. 

# 

hatoh(c(0,-3>-3»3.3) .  c(0, 3/4, my, my, 3/4) ,  border=F) 
t itle( sub="Start ing  T:  -4  Ending  T:  4") 


4  Plot  the  pdf  plane  in  3  dimensional  plane. 

# 

persp( w/mw) 

title(  sub="Y[Left]  XtRight]") 
mtext(  s  ide=3,  line=0,  outer=T, 

encode(  "PDF  Surface  for  N(0,1)  &  Chisq[  DF:",df,"]") ) 
mtext(  side=1 ,  1  ine=  1 ,  outer=T, 

encodeC "X  =  N(0,1)  Y  =  SQRT(  Chiaquare[  DF:",df,n]  /  ,df 


[•] 


MACRO  bvncplot3( cd,z,  i,x,y,w,d  f,my) 

# 

#  This  macro  is  to  plot  transformed  pdf  and  the  original 

#  pdf  contour. 

# 

({ 

par(mfhow=c(  1 ,2) ,  oma=c(5,3»4,0)  ) 

z  inc_z  [  2  ]  -z  [  1  ] 

pd_cd/z  inc 

totpdf  sum(cd) 

zz_repTz,rep(2,(  i+1))) 

h  i_rep(  pd ,  rep(  2 ,  i) ) 

hi_c(0,hi,0) 

# 

#  Plot  the  transformed  pdf. 

# 

plot(z[1 :  i],pd,  type="h",  xlab="T",  ylab="", 
yl  im=c(  0,max(  hi) ) ,  xl  im=c(  z[1],z[i+1]), 
main=encode(  "Total  PDF  =  ",  totpdf), 
sub=encode( "Increment  of  T  :",zinc),  err=-1) 

1  ines(zz,hi) 

mtext( s ide=2 ,  llne=1,  outer=T,  "PDF") 

# 

#  Plot  the  pdf  contour  In  x-y  plane. 

# 

contour(x,y,w,  axes=F,  yl  im=c(0,my) , 
xlab="X" ,  ylab="Y") 
axis(l)  ;  axis(2) 

# 

#  To  avoid  zero  denominator,  if  z  value  Is  zero,  the  z  will 

#  be  replaced  by  .00000000001. 

# 

zp_z 

zp_ifelse(zp!=0,  zp,  .00000000001) 

# 

#  Plot  the  range  of  z  on  the  contour  plot. 

# 

for  (  j  In  1:(  i+1)  )  { 
abl  ine( 0, 1/zpC j]) 

} 

t itle( sub="Start ing  T  :  -4  Ending  T  :  4") 
mtext(  s  ide=3»  line=1,  outer=T, 

"Transform  of  Normal(X)  &  Chisquare  variable(Yp) 
with  T  =  X/SQRT(  Yp/DFy)  ") 
mtext(  s  ide=1 ,  1  ine=  1 ,  outer=T, 

encode("X  :  Normal(0,1),  Y  :  SQRT(Yp/DF),  where  Yp  :  Chisquare  with 

DF", 

df)) 

mtext( s ide=1 ,  line=3»  outer=T, 

"This  Is  the  overall  picture  for  transformation.  If  you  want  to  sje 
the  picture  one  by  one,  hit  Return  at  every  time  GO?  appears") 


# 

#  Iterative  plot 

# 

for(  j  in  1 :  i  )  { 

par(mfrowrc( 1 ,2) ,  oma=c(5,3,5,0) ) 

to  tpd  f_sum( cd [ 1 : j ] ) 

# 

#  Plot  the  cumulative  transformed  pdf 

# 

plot(c( z[ 1 ] ,z[2:( j+1 ) ] ) ,c(pd[ 1 ] ,pd[ 1 : j] ) ,  type="h",  xlab="T", 
ylab="",  yl  im=c(0,max(pd[  1 :  j]) ) ,  xl  im=c( z[  1  ]  ,z[  j+1  ] ) , 
main=encode(  "Total  PDF  =",totpdf), 
sub=encode( "Increment  of  Z  zinc),  err=-1) 

1  ines(  zz[  1 :( 1+2*  j)  ] ,  hit  1 :( 1+2*  j)  ] ) 
mtext(  side=2,  line=1,  outer=T,  "PDF") 

# 

#  Shade  the  current  pdf 

# 

hatch(c(z[ j] ,z[ j] ,z[ j+1 ] ,z[ j+1 ] ) , 
c(0,pd[ j],pd[ j],0)) 

# 

#  Plot  the  pdf  contour. 

# 

contour(x,y,w,  axes=F,  yl  im=c(0,my) , 
xlab="X" ,  ylab="Y") 
axis(1)  ;  axis(2) 

t itle(  sub=encode( "Starting  T:",z[j],"  Ending  T:",z[j+1])) 

# 

4  Plot  the  cumulative  z  range  on  the  contour  plot. 

# 

for  (  k  in  1 :  ( J+1 )  )  { 
abl  ine(0, 1/zp[k] ) 

} 

# 

#  Compute  the  coordinates  for  current  z  range  and 

#  shade  the  current  area. 

# 

mx1_zp[ j]*my 
mx1_min(3*  max(-3,  mxl)) 
mx2_zp[ j+1 ]*my 
mx2_min(3»  max( -3,  mx2)) 
my1_abs(3/zp[ j]) 
my1_min(my1,  my) 
my2_abs(3/zp[ j+1]) 
my2_min(my2,  my) 

hatch(c(0,mx1 ,mx2) ,  c( 0,my1 ,my2) ,  border=F) 
mtext( side=3,  line=1,  outer=T, 

"Transform  of  Normal(X)  4  Chisquare  variable(Yp) 
with  T  =  X/SQRT( Yp/DFy) ") 
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MACRO  hypo 

({ 

?MESSAGE( ) 

item_c( "Test  of  Mean  with  Known  Sigma", 

"Test  of  Mean  with  Unknown  Sigma") 
action  c("?test1",  "?test2") 
menu(  item,  action) 
rm(  item,  action) 

}) 

END 


MACRO  testl 

({ 

?MESSAGE( ) 

?MESSAGE( Null  Hypothesis  Ho  :  MU  a  MUo) 

?MESSAGE( Please  select  proper  alternative  hypothesis.) 
?MESSAGE( ) 

item_c("  Ha  :  MU  >  MUo  (Right  tail  test)", 

"  Ha  :  MU  <  MUo  (Left  tail  test)", 

"  Ha  :  MU  !=  MUo  (Two  tail  test)") 

act ion_c(  "? testl r", 

"?  test'll" , 

"? testl t") 
menu(  item,  action) 
rm(  item,  action) 


MACRO  test 1r( 

xb/?PR0MPT( X  bar 

:  )/, 

nv/?PR0MPT( Sample  size 

:  )/, 

sv/?PR0MPT(  Sigma 

:  )/, 

m0/?PR0MPT( MUo 

:  )/, 

al/?PR0MPT( Alpha 

:  )/, 

es/?PR0MPT( Effect  Size 

for  computing  power  :  )/) 

#  This  macro  is  to  test  for  a  mean  for  a  normal  population 

#  with  known  sigma. 

#  (  Right  tail  test  ) 

# 

? MESSAGE ( ) 

?T(x)_xb 
?T(n)_nv 
?T(s)  sv 
?T(m07_m0 
?T(  a)_al 
?MESSAGE( ) 

?MESSAGE( Effect  size  is  the  distance  between  MUo  and  Mul,) 
?MESSAGE(  and  it  is  absolute  value.) 

?MESSAGE( ) 

?T( es)_es 

?T(ss)_?T(s)/sqrt(?T(n)) 

?T(m1)_?T(mO)+?T(es) 

# 

#  Compute  quantile  for  following  populations  from  cdfs.001  to  .999 

#  normal  population  :  N(MUo,  sigma)  &  N(MUo,  s igma/sqrt(n) ) 

#  N  ( MU  1 ,  sigma)  &  N(MU1,  s  igma/sqrt( n) ) 

# 

x1_qnorm( .001 ,  ?T(mO),  ?TCs)) 
x2_qnorm( .999,  ?T(mO),  ?T(s)) 
x3_qnorm( .001 ,  ?T(m1),  ?T(s)) 
x4_qnorm( .999,  ?T(m1),  ?T(s)) 
x5_qnorm( .001 ,  ?T(m0),  ?T(ss)) 
x6_qnorm( .999,  ?T(m0),  ?T(ss)) 
x7_qnorm( .001 ,  ?T(m1),  ?T(ss)) 
x8  qnorm(.999,  ?T(m1),  ?T(ss)) 

?tTx1 )_seq(x1 ,x2,  len=100) 

?T(x2)_3eq(x3,x4,  len=100) 

?T(x3)_seq(x5,x6,  len=100) 

?T(x4)  seq(x7,x8,  len=100) 

?T(x127_max(?T(x1),?T(x2)) 

?T( n12)~m in( ?T( xl ) ,?T( x2) ) 

?T(x34)_max(?T(x3),?T(x4)) 

?T(n34)_min(?T(x3),?T(x4)) 

# 

#  Compute  PDF  for  normal  population. 

# 

?T(pm0)_dnorm(?T(x1 ) ,  ?T(m0),  ?T(s)) 

?T(pm1)  dnorm(?T(x2),  ?T(m1),  ?T(s)) 


#  Compute  maximum  pdf  for  both  normal  distribution 

# 

?T(mxO)_dnorm(?T(mO) ,  ?T(mO),  ?T(s)) 

?T(mx1  )_dnorm(?T(m1 ) ,  ?T(m1),  ?T(s)) 

# 

#  Make  proper  label 

# 

1 abel  1_encode( "MUo  =",?T(mO),"  MU1  =",  ?T(m1), 

"  Known  sigma  =",?T(s),"  Effect  Size  =",?T(es)) 

# 

#  Call  macro  to  plot  the  screen  1 . 

# 

? screen 1 (?T(mO) ,?T(m1 ) ,?T(x1 ) ,?T(x2) ,?T( pmO) ,?T(pm1 ) , 

?T(mxO) ,?Tlmx1 ) ,?T(x12)  ,Vt(ni2)  .label i ) 

# 

#  Compute  Xbar  critical  value. 

# 

?T(xbc)_qnorm( ( 1-?T( a) ) ,  ?T(mO),  ?T(ss)) 

?T(xcO)_dnorm(?T(xbc) ,  ?T(mO),  ?T(ss)) 

?T(xc1)_dnorm(?T(xbc),  ?T(m1),  ?T(ss)) 

# 

#  Compute  PDF  for  sampling  distribution. 

# 

?T(pxO)_dnorm(?T(x3),  ?T(mO),  ?T(ss)) 

?T(px1)_dnorm(?T(x4),  ?T(m1),  ?T(ss)) 

t 

#  Compute  maximum  pdf  for  both  sampling  distribution 

# 

?T(xxO)_dnorm(?T(mO),  ?T(mO),  ?T(ss)) 

?T(xx1)_dnorm(?T(m1),  ?T(m1),  ?T(ss)) 

# 

#  Compute  Likelihood  ratio 

# 

?T(xx)_seq(?T(n34),?T(x34),  len=10D) 
?T(lr)_exp((-?T(n)*((?T(xx)-?T(mO))',2))/(2*(?T(s),'2))) 

# 

#  Compute  the  likelihood  ratio  for  X  critical. 

# 

?T(  k)_exp(  (  -?T(  n)*(  ( ?T(  xbc )  -?T(  mO)  )“2) )  /  ( 2*(?T(  s)'‘2) ) ) 

# 

#  Compute  Beta  (=  1-  power) 

# 

?T( b)_pnorm(?T(xbc) ,  ?T(m1),  ?T(ss)) 

# 

#  Make  proper  label. 

# 

label 1_encode( "MUo  =",?T(mO),"  MU1  =",?T(m1),"  Known  Sigma  =", 
?T( s) ) 

label2_encode(  "Effect  size  =",?T(es),"  Sample  Size  =",?T(n)) 
label3  encode("////  :  Alpha  =",?T(a), 

~  "  WWWWWWWW  :  Beta  =",  ?T(b)) 


label4_encode( "Xbar  crit  =",?T(xbc),"  LR  =",?T(k)) 
label  c( label 1 ,  label2,  label3,  label4) 

# 

#  Call  macro  to  plot  the  screen  2. 

# 

?screen2r(?T(mO) ,?T(m1 ) ,?T(x3) ,?T(x4) ,?T(pxO) ,?T(px1) ,?T(xx0) , 
?T(xx1 ) ,?T(xx) ,?T(lr) ,?T(k) ,?T(xbc) ,?T(xc0) ,?T(xc1 ) , 
?T(x34),?T(n34),x6,x7, label) 

# 

#  Compute  PDF  in  Z  scale 

# 

?T(m1p)_(?T(m1)-?T(mO))/?T(ss) 

?T(zc)_qnorm(  1-?T(  a))  #  Z  critical  value 

?T(zcO)_dnorm(?T(zc) ,  0,  1) 

?T( zcl )_dnorm(?T(zc) ,  ?T(m1p),  1) 
x9_qnorm( .001 ,  0,  1) 
x10_qnorm( .999,  0,  1) 
xl 1_qnorm( .001 ,  ?T(m1p),  1) 
x12_qnorm( .999,  ?T(m1p),  1) 

?T(x5)_seq(x9,x10,  len=100) 

?T(x6)  seq(x11,x12,  len=100) 

?T(pzOT_dnorm(?T(x5) ,  0,  1) 

?T(pz1)_dnorm(?T(x6),  ?T(m1p),  1) 

?T(x56)_max(?T(x5),?T(x6)) 

?T(n56)_min(?T(x5),?T(x6)) 

# 

#  Compute  Power  Function 

# 

?T( px)  seq(?T(mO)-2»?T(s),  ?T(mO)+2«?T( s) ,  len=100) 

?T( mupTj ?T( m0)-?T( px) ) /?T(  ss) 

?T(pwr)_1-pnorm(?T( zc)+?T(mup) ) 

?T( pwl )_1-pnorm( ?T( zc)-?T(m1p) ) 

# 

#  Compute  maximum  pdf  for  both  z  distribution 

# 

?T(zx0)_dnorm(0,  0,  1) 

?T( zxl  )_dnorm( ?T( mlp) ,  ?T(m1p),  1) 

# 

#  Make  proper  label 

# 

label5_encode( "When  MU  =  ",?T(m1),"  Power  =  ",?T(pw1)) 
label_c( label,  label5) 

# 

#  Call  macro  to  plot  the  screen  3« 

# 

7screen3r(?T(m1),?T(m1p) ,?T(x5) ,?T(x6) ,?T(pz0) ,?T(pz1 ) ,?T(zx0) , 
?T(zx1) ,?T(px) ,?T( zc) ,?T( pwr) ,?T(zc0) ,?T(zc1) , 

?T( pwl ),?T(x56),?T(n56),x1Q,x11, label) 


#  Test  results 

# 

?T(pv)  1-pnorm(?T(x),  ?T(mO),  ?T(ss)) 

?T(z)  T?T(x)-?T(mO))/?T(ss) 

label£_encode( "Xbar*  =",?T(x},"  Xbar  cr.lt  =B,?T(xbc), 

"  Z*  =  "  ,?T( z) , "  Z  cr it  =  "  ,?T( zc) ) 
label_c( label, label6) 

# 

#  Call  macro  to  plot  the  screen  4. 

# 

xv1_rb ind(?T(x3) ,?T(x4) ) 
pxv_rb ind(?T(pxO) ,?T(px1)) 
xxv_c(?T(xxO) ,?T(xx1 ) ) 
xcv_c(?T(xcO) ,?T(xc1 ) ) 
xn1_c(?T(x34),?T(n34)) 
xp1_c(x6,x7) 

xv2_i ;  ind(?T(x5)  ,?T(x6) ) 
pzv_rb ind(?T(pzO) ,?T(pz1 ) ) 
zxv_c(?T(zxO) ,?T( zxl ) ) 
zcv_c(?T(zcO) ,?T(zc1 ) ) 
xn2_c(?T(x56) ,?T(n56) ) 
xp2_c(x10,x1 1) 

mmv~c(?T(mO) ,?T(m1 ) ,?T(m1p) ) 

?screen4r(?T(x) ,?T( xbc) ,?T(pv) ,?T(zc) ,?T( z) , 
mmv.xvl ,pxv,xxv,xcv,xn1 ,xp1 ,xv2,pzv, 
zxv  zc v , xn2 , xp2 , 1 abel ) 

rm(?T(x) , ?T( n) ,?T( s) ,?T(mO) ,?T(m1 ) ,?T( a) ,?T(es) ,?T(  ss) , 

?T(x1),?T(x2),?T(x3),?T(x4),?T(x5),?T(x6),?T(x12),?T(n12), 
?T(x34),?T(n34),?T(x56),?T(n56),?T(pmO),?T(pm1),?T(mxO),?T(mx1), 
?T(xbc) ,?T(xcO) , ?T(xc1 ) ,?T(pxO) ,?T{ pxl ) ,?T(xxO) ,?T(xx1 ) ,?T(xx) , 
?T(lr) ,?T(k) ,?T(m1p) ,?T(pzO) ,?T( pzl ) ,?T( px) ,?T( mup) ,?T(pwr), 

?T( pwl ) , ?T( zxO) ,?T( zxl ) ,?T( pv) ,?T( zc) ,?T( zcO) ,?T( zcl ) , 
xl ,x2,x3,x4,x5,x6,x7,x8,x9,x10,x1 1 ,x 12, label! ,label2,label3» 
Iabel4,label5, Iabel6,xv1 ,xv2,pxv,pzv,xxv,zxv,xcv,zcv, 
xnl ,xn2,mmv,xp1 ,xp2,label,?T( b) ,?T( z) ) 


MACRO  test11( 

xb/?PR0MPT( X  bar 

:  )/, 

nv/?PR0MPT( Sample  size 

:  )/, 

sv/?PR0MPT(  Sigma 

:  )/, 

m0/?PR0MPT(MUo 

:  )/, 

al/?PR0MPT( Alpha 

:  )/, 

es/?PR0MPT( Effect  Size 

for  computing  power  :  )/) 

#  This  macro  is  to  test  for  a  mean  for  a  normal  population 

#  with  known  sigma. 

#  (  Left  tail  test  ) 

# 

?MESSAGE( ) 

?T(x)_xb 
?T(n)_nv 
?T( s)  sv 
?T(m07_m0 
?T(  a)_al 
?MESSAGE( ) 

?MESSAGE( Effect  size  is  the  distance  between  MUo  and  Mul,) 
?MESSAGE( and  it  is  absolute  value.) 

?MESSAGE( ) 

?T(es)_es 

?T( ss)_?T( s)/sqrt(?T(n) ) 

?T(m1 )_?T(mO)-?T( es) 

# 

#  Compute  quantile  for  following  populations  from  cdfs.001  to  .999; 

#  normal  population  ;  N(MUo,  sigma)  &  N(MUo,  3  igma/sqrt(n) ) 

#  N( MU1 ,  sigma)  &  N(MU1,  s  igma/sqrt( n) ) 

# 

x1_qnora' .001 ,  ?T(mO),  ?T(s)) 
x2_qnorm( .999,  ?T(mO),  ?T(s)) 
x3_qnorm( .001 ,  ?T(m1),  ?T(s)) 
x4_qnorm( .999,  ?T(m1),  ?T(s)) 
x5_qnorm( .001 ,  ?T(m0),  ?T(ss)) 
x6_qnorm( .999,  ?T(m0),  ?T(ss)) 
x7  qnorm(.001,  ?T(m1),  ?T(ss)) 
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x8  qnorm(.999,  ?T(m1),  ?T(ss)) 
?T7x1 )_seq(x1 ,x2,  len=100) 

?T( x2)_seq( x3,x4 ,  lenslOO) 
?T(x3)_seq(x5,x6,  len=100) 
?T(x4)  seq(x7,x8,  lens  100) 
?T(x127_max(?T(x1 ) ,?T(x2) ) 

?T( n12 )_m  in( ?T( xl ) ,?T(x2) ) 
?T(x31»)_max(?T(x3)  ,?T(x4)) 
?T(n34)  min(?T(x3)  ,?T(x4) ) 
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Compute  PDF  for  normal  population. 
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?T( pmO)  dnorm(?T(x1),  ?T(m0),  ?T(s)) 
?T( pml )~dnorm( ?T( x2) ,  ?T(m1),  ?T(s)) 
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#  Compute  maximum  pdf  for  both  normal  distribution 

# 

?T(mxO)_dnorm(?T(mO) ,  ?T(mO),  ?T(s)) 

?T(mx1 )  dnorm(?T(m1 ) ,  ?T(m1),  ?T(s)) 

# 

#  Make  proper  label 

# 

label 1_encode( "  MUo  =",?T(mO),"  MU1  =",  ?T(m1), 

"  Known  sigma  =",?T(s),n  Effect  Size  =  ",?T(es)) 

# 

#  Call  macro  to  plot  the  screen  1. 

J ft 

# 

? screen 1(?T(mO) ,?T(m1) ,?T(x1 ) ,?T(x2) ,?T(pmO) ,?T(pm1 ) , 
?T(mxO),?T(ox1) ,?T(x 12) ,?T(n12), label 1) 

# 

#  Compute  Xbar  critical  value. 

# 

?T(xbc)_qnorm(?T( a) ,  ?T(mO),  ?T(ss)) 

?T(xcO)_dnorm(?T(xbc) ,  ?T(mO),  ?T(ss)) 

?T(xc1  )_dnorm(?T(xbc) ,  ?T(m1),  ?T(ss)) 

# 

#  Compute  PDF  for  sampling  distribution. 

# 

?T(pxO)_dnorm(?T(x3),  ?T(mO),  ?T(ss)) 

?T( pxl )  dnorm(?T(x4) ,  ?T(m1),  ?T(ss)) 

# 

#  Compute  maximum  pdf  for  both  sampling  distribution 

# 

?T(xxO)_dnorm(?T(mO),  ?T(mO),  ?T(ss)) 

?T(xx1)_dnorm(?T(m1),  ?T(m1),  ?T(ss)) 

* 

#  Compute  Likelihood  ratio 

# 

?T(xx)_seq(?T(n34),?T(x34),  len=100) 

?T( lr)_exp( ( -?T( n)*( (?T( xx)-?T(mO) )“2))/(2*(?T(s)“2))) 

# 

#  Compute  the  likelihood  ratio  for  X  critical. 

# 

?T(k)_exp(  (-?T(n)*(  (?T(xbc)-?T(mO))‘'2))/(2*(?T(s)“2))) 

# 

#  Compute  Beta  (=  1-  power) 

# 

?T(b)_1-pnorm(?T(xbc),  ?T(m1),  ?T(ss)) 

# 

#  Make  proper  label. 

# 

label1_encode( "MUo  =n,?T(mO),n  MU1  =",?T(m1),"  Known  Sigma 
?T( s) ) 

label2_encode(  "Effect  size  =",?T(es),"  Sample  Size  =",?T(n) 
labe!3  encode("////  :  Alpha  =",?T(a),"  WWWWWWWW  : 


label4_encode( "Xbar  crit  =",?T(xbc) LR  =n,?T(k)) 
label_c(label1 ,  label2,  label3»  label4) 

# 

#  Call  macro  to  plot  the  screen  2. 

# 

?screen21( ?T(mO) ,?T(m1 ) ,?T(x3) ,?T(x4) ,?T( pxO) ,?T(px1) ,?T(xxO) , 
?T( xxl ) ,?T(xx) ,?T(lr) ,?T(k) ,?T(xbc) ,?T(xcO) ,?T(xc1 ) , 
?T(x34),?T(n34),x5,x8, label) 

# 

#  Compute  PDF  in  Z  scale 

# 

?T(m1p)_(?T( ml )-?T(mO) )/?T(  ss) 

?T(  zo)  <?norm(?T(  a))  §  Z  critics!  v  si  us 

?T(zcOT_dnorm(?T(zc) ,  0,  1) 

?T(zc1)_dnorm(?T(zc),  ?T(m1p),  1) 
x9_qnorm( .001 ,  0,  1) 
x10_qnorm( .999#  0,  1) 
xl 1_qnorm( .001 ,  ?T(m1p),  1) 
x12_qnorm( .999#  ?T(m1p),  1) 

?T(x5)_seq(x9,x10,  len=100) 

?T(x6)  seq(x11,x12,  len=100) 

?T(pzOT_dnorm(?T(x5),  0,  1) 

?T(pz1 )_dnorm(?T(x6) ,  ?T(m1p),  1) 

?T(x56)_max(?T(x5) ,?T(x6) ) 

?T(n56)_min(?T(x5) ,?T(x6)) 

# 

#  Compute  Power  Function 

# 

?T(px)  seq(?T(mO)-2«?T(s),  ?T(mO)+2»?T( s) ,  len=100) 

?T(mupT_C?T( m0)-?T(px) )/?T(  ss) 

?T( pwr)_pnorm( -?T( zc)+?T( mup) ) 

?T( pwl )_pnorm( -?T(zc)-?T(m1p) ) 

# 

#  Compute  maximum  pdf  for  both  z  distribution 

# 

?T(zx0)_dnorm(0,  0,  1) 

?T(zx1 )_dnorm(?T(m1p) ,  ?T(m1p),  1) 

# 

#  Make  proper  label 

# 

label5_encode( "When  MU  =  ",?T(m1 ) Power  =  ",?T(pw1)) 
label_c( label,  label5) 

# 

#  Call  macro  to  plot  the  screen  3. 

# 

?screen31(?T(m1 ) ,?T(m1p) ,?T(x5) ,?T(x6) ,?T(pz0) ,?T(pz1 ) ,?T(zx0) , 
?T( zxl ) ,?T( px) ,?T( zc) ,?T( pwr) ,?T( zcO) ,?T( zcl ) , 

?T( pwl ),?T(x56),?T(n56),x9,x12, label) 


# 

#  Test  results 

# 

?T(pv)  pnorm(?T(x),  ?T(mO),  ?T(ss)) 

?T( z)  r?T(x)-?T(mO))/?T(ss) 

label?  encode( "Xbar*  =",?T(x),"  Xbar  crit  =",?T(xbc), 

Z*  =" ,?T( z) , "  Z  or  It  =",?T(ze)) 
label_c(  label, label6) 

# 

#  Call  macro  to  plot  the  screen  4. 

# 

xv1_rb ind(?T(x3),?T(x4)) 

*  •  *  /  *•>  m  /  _  «  \  a  l*l  t 4  \  \ 

pxv  ru  inuv.  :  ik  pxu/ , :  n  px  i  /  / 
xxv~c(?T(xxO) ,?T(xx1 ) ) 
xcv_c(?T(xcO) ,?T(xc1 ) ) 
xn-Tc(?T(x34) ,?T(n34)) 
xp1_c(x5,x8) 

xv2_rb  ind(?T(x5) ,?T(x6) ) 
pzv~rb  ind( ?T(pzO) ,?T(pz1 ) ) 
zxv_c(?T(zxO) ,?T(zx1 ) ) 
zcv_c(?T(zcO) ,?T( zcl ) ) 
xn2_c(?T(x56),?T(n56)) 
xp2_c(x9,x12) 

mmv_c(?T(mO) ,?T(m1 ) ,?T(m1p) ) 

?screen41(?T(x) ,?T(xbc) ,?T(pv) ,?T(zc) ,?T(z) , 
mmv.xvl ,pxv,xxv,xcv,xn1 ,xp1 ,xv2,pzv, 
zxv , zcv , xn2 , xp2 , 1 abel ) 

rm(?T(x) ,?T(n) ,?T(s) ,?T(mO) ,?T(m1) ,?T( a) ,?T(es) ,?T(ss) , 

?T(x1 ) ,?T(x2) ,?T(x3) ,?T(x4) ,?T(x5) ,?T(x6) ,?T(x12) ,?T(n12) , 

?T(x34),?T(n34),?T(x56),?T(n56),?T(pmO),?T(pm1),?T(mxO),?T(mx1), 
?T( xbc) ,?T( xcO) ,?T( xcl ) ,?T( pxO) ,?T( pxl ) ,?T( xxO) ,?T( xxl ) ,?T(xx) , 
?T( lr) ,?T( k) ,?T(m1p) ,?T(pzO) ,?T( pzl) ,?T(px) ,?T(mup) ,?T(pwr) , 

?T( pwl ) ,?T( zxO) ,?T( zxl ) ,?T(pv) ,?T(zc) ,?T( zcO) ,?T( zc 1 ) , 
Xl,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11 ,x12,label1,label2,label3, 
Iabel4,label5,label6,  label, xvl ,xv2,pxv,pzv,xxv,zxv,xcv, 
zcv,xn1 , xn2 , mmv , xp 1 ,xp2,?T( b) ,?T( z) ) 

}) 


MACRO  testl t( 

xb/?PROMPT{ X  bar  :  )/, 

nv/?PR0MPT( Sample  size  :  )/, 

sv/?PROMPT( Sigma  :  )/, 

mO/?PROMPT(MUo  :  )/, 

al/?PR0MPT( Alpha  :  )/, 


es/?PROMPT( Effect  Size  for  computing  power  :  )/) 

(t 

# 

#  This  macro  is  to  test  for  a  mean  for  a  normal  population 

#  with  known  sigma. 

#  (  Two  tail  test  ) 

# 

?MESSAGE( ) 

?MESSAGE(For  two  tail  test,  alternative  distribution  should) 
?MESSAGE(ex  1st  in  both  sides  of  the  null  distribution,  however,) 
? MESSAGE (  for  simplification  of  plotting,  only  right  side  ) 
?MESSAGE(  alternative  distribution  will  be  plotted.) 

?MESSAGE( ) 

?T(x)_xb 
?T(n)_nv 
?T(s)  sv 
?T(m07_m0 
?T(  a)_al 
?MESSAGE( ) 

?MESSAGE( Effect  size  is  the  distance  between  MUo  and  Mul,) 
?MESSAGE(  and  it  is  absolute  value.) 

?MESSAGE( ) 

?T(es)_abs(es) 

?T(ss)_?T(s)/sqrt(?T(n)) 

?T(m1  )_?T(mO)+?T( es) 

# 

t  Compute  quantile  for  following  populations  fhom  cdf=.001  to  .999; 

#  normal  population  :  N(MUo,  sigma)  &  N(MUo,  s  igma/sqrt(n) ) 

#  N(MU1,  sigma)  &  N(MU1,  sigma/sqrt(n)) 

# 


x1_qnorm( .001 ,  ?T(mO),  ?T(s)) 
x2_qnorm( .999,  ?T(mO),  ?T(s)) 
x3_qnorm( .001 ,  ?T(m1),  ?T(s)) 
x4_qnorm( .999,  ?T(m1),  ?T(s)) 
x5_qnorm( .001 ,  ?T{m0),  ?T(ss)) 
x6_qnorm( .999,  ?T(m0),  ?T(ss)) 
x7_qnorm( .001 ,  ?T(m1),  ?T(ss)) 
x8  qnorm(.999,  ?T(m1),  ?T(ss)) 
?tTx1)  seq(x1,x2,  len=100) 
?T(x2)~seq(x3,x4,  lenslOO) 
?T(x3)~seq(x5,x6,  len=100) 
?T(x4)~seq(x7,x8,  len=100) 
?T(x127_max(?T(x1),?T(x2)) 
7T(n12)  min(?T(x1),?T(x2)) 

?T( x34 )_max( ?T( x3 ) , ?T( x4 ) ) 
?T(n34)  min(?T(x3),?T(x4)) 


#  Compute  PDF  for  normal  population. 

# 

?T(pmO)_dnorm(?T(x1),  ?T(mO),  ?T(s)) 

?T(pm1)“dnorm(?T(x2),  ?T(m1),  ?T(s)) 

# 

#  Compute  max imum  pdf  for  both  normal  distribution 

# 

?T(mxO)_dnorm(?T(mO) ,  ?T(mO),  ?T(s)) 

?T(mx1 )  dnorm( ?T(m1 ) ,  ?T(m1),  ?T(s)) 

# 

#  Make  proper  label 

f 

label  1_encode("  MUo  =",?T(mO),"  MU1  =",  ?T(m1), 

"  Known  sigma  =",?T(s),"  Effect  Size  =  ”,?T(es)) 

# 

#  Call  macro  to  plot  the  screen  1. 

# 

?soreen1(?T(mO),?T(m1),?T(x1),?T(x2),?T(pmO),?T(pm1), 
?T(mxO) ,?T(mx1),?T(x12),?T(n12) ,label1) 

# 

#  Compute  Xbar  critical  value. 

# 

xbcr_qnorm( ( 1-(?T( a)/2) ) ,  ?T(mO),  ?T(ss)) 
xbcl_qnorm((?T(a)/2),  ?T(mO),  ?T(as)) 

?T(xbc)_c(xbcr,  xbcl) 
xcOr_dnorm(xbcr,  ?T(mO),  ?T(ss)) 
xc01_dnorm(xbcl,  ?T(mO),  ?T(ss)) 

?T(xcO)_c(xcOr,  xcOl) 
xc1r_dnorm(xbcr,  ?T(m1),  ?T(ss)) 
xc11_dnorm(xbcl,  ?T(m1),  ?T(ss)) 

?T(xc1 )_c(xc1r,  xcll) 

# 

#  Compute  PDF  for  sampling  distribution. 

# 

?T( pxO)  dnorm(?T(x3),  ?T(mO),  ?T(ss)) 
?T(px1)“dnorm(?T(x4),  ?T(m1),  ?T(ss)) 

# 

#  Compute  maximum  pdf  for  both  sampling  distribution 

# 

?T(xxO)_dnorm(?T(mO) ,  ?T(mO),  ?T(ss)) 

?T(xx1 )_dnorm(?T(m1 ) ,  ?T(m1),  ?T(ss)) 

# 

#  Compute  Likelihood  ratio 

# 

?T(xx)_seq(?T(n34),?T(x34) ,  len=100) 

?T( lr)_exp( ( -?T( n)*( ( ?T( xx)-?T( mO) )*2) )/(2*( ?T( s)^2) ) ) 

# 

#  Compute  the  likelihood  ratio  for  X  critical. 

# 

kr_exp( ( -?T(n)#( (xbcr-?T(mO) )~2) )/(2*(?T( s)~2) ) } 
kl  exp(  ( — 7T(  n)*(  ( xbcl-?T(  mO))*2))/(2,(?T(s)'>2))) 

?TTk)  c(kr,  kl) 


#  Compute  Beta  (=  1-  power) 

?T(b)  pnorm(xbcr,?T(m1 ) ,?T( ss) )  -  pnorm(xbcl ,?T(m1 ) ,?T(  ss) ) 

# 

#  Make  proper  label. 

# 

label  1_encode("MUo  =",?T(mO),"  MU1  =",?T(mD,"  Known  Sigma  =  ", 

?T( s) ) 

label2  encode( "Effect  size  =",?T(es),«  Sample  Size  =",?T(n)) 
label3  encode("////  :  Alpha  =  ",?T(a),n  WWWWWWWW  :  Beta  =" 

?T(b) ) 

labels  encode( "Xbar  crit  =",?T(xbc) [ 1 ] ,"or",?T(xbe) [2] LR  =", 

?T( k) C 1 ] ) 

label_c( label 1 ,  label2,  label3»  label4) 

# 

#  Call  macro  to  plot  the  screen  2. 

# 

?screen2t(?T(mO) ,?T(m1 ) ,?T(x3) ,?T(x4) ,?T(px0) ,?T(px1 ) ,?T(xxO) , 

?T(xx1 ) ,?T(xx) ,?T( lr) ,?T( k) ,?T(xbc) ,?T(xcO) ,?T(xc1 ) , 
?T(x34),?T(n34),x5,x6,x7, label) 

# 

t  Compute  PDF  in  Z  scale 

# 

?T(m1p)_(?T(m1)-?T(mO))/?T(ss) 

zcr  qnorm(  ( 1-?T(  a)/2) ,  0,  1)  4  Z  critical  value  (Right  side  value) 

zcl  qnorm(?T(  a)/2,  0,  1)  #  Z  critical  value  (Left  side  value) 

?T(zc)  c(zcr,  zcl) 

?T( zcOT_dnorm( ?T( zc) ,  0,  1) 
zc1r_dnorm( zcr ,  ?T(m1p),  1) 
zc11_dnorm( zcl,  ?T(m1p),  1) 

?T(zc1)_c(zc1r,  zcll) 
x9_qnorm( .001 ,  0,  1) 
x10_qnorm( .999,  0,  1) 
xl 1_qnorm( .001 ,  ?T(m1p),  1) 
x12_qnorm( .999 ,  ?T(m1p),  1) 

?T(x5)_seq(x9,x10,  len=100) 

?T(x6)  seq(x11,x12,  len=100) 

?T(pz0T_dnorm(?T(x5) ,  0,  1) 

?T(pz1)_dnorm(?T(x6),  ?T(m1p),  1) 

?T(x56)_max(?T(x5),?T(x6)) 

?T(n56)_min(?T(x5) ,?T(x6) ) 

# 

#  Compute  Power  Function 

# 

?T( px)  seq(?T(mO)-2*?T(s) ,  ?T( m0)+2*?T( s) ,  len=100) 
?T(mup7_(?T(mO)-?T(px))/?T(ss) 

?T(pwr)~1  -  pnorm( zcr+?T(mup) )  +  pnorm( zcl+?T(mup) ) 

?T(pw1)~1  -  pnorm( zcr-?T( mlp) )  +  pnorm( zcl-?T(m1p) ) 

# 

#  Compute  maximum  pdf  for  both  z  distribution 

?T( zx0)_dnorm(  0,  0,  1) 

?T( zxl )  dnorm( ?T( mlp) ,  ?T(m1p),  1) 
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# 

#  Make  proper  label 

# 

labe!5_encode( "When  MU  =  %?T(m1),n  Power  =  ",?T(pw1)) 
label  c( label,  label5) 

# 

#  Call  macro  to  plot  the  screen  3 • 

# 

?screen3t(?T(m1),?T(m1p),?T(x5),?T(x6),?T(pzO),?T(pz1),?T(zxO), 
?T(zx1),?T(px),?T(zc) ,?T( pwr) ,?T(zcO) ,?T(zc1) , 

?T(pw1),?T(x56) ,?T(n56) ,x9,x10,x1 1 .label) 

# 

#  Test  results 

# 

?T(pv)_ifelse(?T(x)<?T(mO),  2*pnorm(?T(x) ,  ?T(mO),  ?T(ss)), 

2*(  1-pnorm('.'T(x) ,  ?T(mO),  ?T(ss)))) 

?T( z)  (?T(x)-?T(mO) )/?T(ss) 

labell5_encode(  "Xbar*  =",?T(x),"  Xbar  cr  it  =",xbcr,"or",xbcl) 
label7_encode(  "Z*  =",?T(z),"  Z  crit  =",zcr,norn,zcl) 
label_c( label,  label6,  label7) 

# 

#  Call  macro  to  plot  the  screen  4. 

# 

xv1_rb ind(?T(x3) ,?T(x4)) 
pxv_rb  ind( ?T( pxO) ,?T( pxl ) ) 
xxv_c(?T(xxO) ,?T(xx1 ) ) 
xcv_c(?T(xcO) ,?T( xcl ) ) 
xn1_c(?T(x34) ,?T(n34)) 
xp1_c(x5,x6,x7) 
xv2_rb  ind(?T(x5) ,?T(x6) ) 
pzv_rb  ind(?T(pzO) ,?T(pz1 ) ) 
zxv_c(?T(zxO) ,?T(zx1 ) ) 
zcv  c ( ?T( zcO ) ,?T( zc 1 ) ) 
xn2_c(?T(x56),?T(n56)) 
xp2_c(x9,x10,x1 1 ) 
mmv_c(?T(mO) ,?T(m1 ) ,?T(m1p)) 

?screen4t(?T(x) ,?T(xbc) ,?T(pv) ,?T(zc) ,?T(z) , 
mmv.xvl ,pxv,xxv,xcv,xn1 ,xp1 ,xv2,pzv, 
zxv,zcv,xn2,xp2, label) 

rm(?T(x) ,?T( n) ,?T(s) ,?T(mO) ,?T(m1 ) ,?T( a) ,?T(es) ,?T( ss) , 

?T(x1 ) ,?T(x2) ,?T(x3),?T(x4),?T(x5) ,?T(x6) ,?T(x12) ,?T(n12) , 
?T(x34),?T(n34),?T(x56),?T(n56),?T(pmO),?T(pm1),?T(mxO),?T(mx1), 
?T( xbc) ,?T(xcO) ,?T(xc1 ) ,?T( pxO) ,?T( pxl ) ,?T(xxO) ,?T(xx1 ) ,?T(xx) , 
?T( lr) ,?T(k),?T(m1p),?T(pzO),?T(pz1),?T(px),?T( mup) ,?T(pwr), 

?T( pwl ) ,?T( zxO) ,?T( zxl ) ,?T( pv) ,?T( zc) ,?T(zcO) ,?T(zc1), 
xl ,x2,x3,x4,x5,x6,x7,x8,x9,x10,x11 ,x12,label1 ,label2,label3, 
label4, label5, Iabel6,label7,xv1 ,xv2,pxv,pzv,xxv,zxv,xcv,zcv, 
xnl ,xn2,mmv,xp1 ,xp2,xbcr ,xbcl ,xcOr, xcOl , label , 
xc1r,xc11,kr,kl,zcr,zcl,zc1r,zc11,?T(b) ,?T(z) ) 

n 

END 
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MACRO  screen KmuO, mu  1 ,x1 ,x2,pm0,pm1 ,mxO,mx1 ,mx,mn,lab1 ) 

# 

#  This  macro  is  to  plot  the  statistical  hypothesis 
4  on  the  first  screen. 

4 


par(mfrow=c(  1 , 1 ) ,  oma=c(  3.2, 1 ,0) ) 
plot(x1,pm0,  xlabs"X",  ylabs"",  types "1", 
xl  im=c(mn, mx) ,err=-1 ) 
points(x2,pm1) 

Seamen  la ( muG , mx  G , muG , 0 ) 
segments(mu1 .mxl .mul ,0) 


title(sub="Ho  :  smooth  line  Ha  : 
mtext(  s  ides2,  lines'! ,  outersT,  "PDF" 
mtext( s ides3,  linesO,  outersT, 
"Statistical  Hypothesis") 
mtext(  s  idesl ,  lines'!,  outersT,  labl) 


Ha  :  star  line") 
"PDF") 
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MACRO  screen2r(nu0,mu1 ,x3,x4,px0,px1 ,xx0,xx1 ,xx,lr,k,xbc,xcO, 
xcl ,mx,mn,xb,xs,lab) 

# 

#  This  macro  is  to  plot  the  likelihood  ratio  and 

#  test  of  the  statistical  hypothesis. 

#  (  Right  tail  test  ) 

# 

(t 

par(mfhow=c(2, 1 ) ,  oma=c( 4,3»0,0) ) 

# 

#  Plot  the  Likelihood  Ratio  on  the  X  bar  axis 

# 

plot(xx,lr,  types"l",  xlab="Xbar",  ylabs"", 
er  r=-1 ) 

segmf  .,s(xbc,0,xbc,k) 
title(main="Likel  ihood  Ratio  Function", 
sub=lab[4] ) 

# 

#  Plot  the  Hypothesis  test  on  the  X  bar  axis 

# 

plot(x3,px0,  xlab="Xbar",  ylab="",  type="l", 
xl im=c(mn,mx) , err=-1 ) 

1  ines(x4,px1) 

mtext(side=2,  linesl,  outer=T, 

"  Lambda  PDF  ") 

segmen  ts ( muO , xxO , muO , 0 ) 
segments(mu1,xx1 ,mu1,0) 
abl  ine(vsxbc) 

# 

#  Find  the  alpha  area 

# 

al_x3[x3  >  xbc] 
nal_len(  al) 

al_c(xbc,  al)  #  X  coordinates  for  alpha  area 
ay_pxO[( 101-nal) : 100] 

ay_c(xc0,  ay)  #  Y  coordinates  for  alpha  area 

# 

#  Find  the  beta  area 

# 

be_x4[x4  <  xbc] 
nbe_len(be) 

be_c(be,  xbc)  #  X  coordinates  for  beta  area 
by_px1 [ 1 :(max(nbe, 1 ) ) ] 

by_c(by,  xcl)  #  Y  coordinates  for  beta  area 

# 

#  Shade  the  beta  area 

# 

if(nbe>0)  l 

hatch(c(xs,be,xbc) ,  c(0,by,0),  spaces. 05,  anglesl35,  bordersF) 

} 


370 


vy; 

IP-"’* 

:•  .s 
.'•W.v 


#  Shade  the  alpha  area 

# 

hatch(c(xbc, al,xb) ,  c(0,ay,0),  spaces. 05,  bordersF) 
title(mains"Test  of  Statistical  Hypothesis", 
subs  "Ho  :  Left  Ha  :  Right") 
mtext(sides1 ,  linesO,  outersT,  lab[33) 
mtext(sides1 ,  lines'!,  outersT,  lab[1]) 
mtext( sides  1 ,  lines3,  outersT,  lab[2l) 
rm( al,nal,ay,be,nbe,by) 
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MACRO  screen21(mu0,mu1 ,x3,x4,px0,px1 ,xxO,xx1 ,xx,lr,k,xbc,xcO, 
xcl ,mx,mn,xb,xs, lab) 

# 

#  This  macro  is  to  plot  the  likelihood  ratio  and 

#  test  of  the  statistical  hypothesis. 

#  (  Left  tail  test  ) 

# 

({ 

par(mfrow=c(2, 1 ) ,  omasc(4,3,0,0) ) 

# 

t  Plot  the  Likelihood  Ratio  on  the  X  bar  axis 

# 

plot(xx,lr,  type="l",  xlab="Xbar",  ylabs"", 
err=-1 ) 

segments(xbc,0,xbc,k) 
title(main="Likel  ihood  Ratio  Function", 
sub=lab[4] ) 

# 

#  Plot  the  Hypothesis  test  on  the  X  bar  axis 

# 

plot(x3,px0,  xlab="Xbar",  ylab="",  type="l", 
xl  im=c(mn,mx) ,err=-1 ) 

1  ines(x4,px1) 

mtext(aide=2,  line=1,  outer=T, 

"  Lambda  PDF  ") 

segments(mu0,xx0,mu0,0) 
segments(mu1 ,xx1 ,mu1 ,0) 
abl  ine( vsxbc) 

# 

#  Find  the  alpha  area 

# 

al_x3Cx3  <  xbc] 
nal_len(  al) 

al_c(al,  xbc)  #  X  coordinates  for  alpha  area 
ay_px0[ 1 :nal] 

ay_c(ay,  xcO)  #  Y  coordinates  for  alpha  area 

# 

#  Find  the  beta  area 

# 

be_x4[x4  >  xbc] 
nbe_len(be) 

be  c(xbc,  be)  #  X  coordinates  for  beta  area 

by_px1[(min( 100,( 101-nbe) ) ) : 100] 

by_c(xc1,  by)  #  Y  coordinates  for  beta  area 

# 

#  Shade  the  beta  area 

t 

if(nbe>0)  { 

hatch(c(xbc,be,xs) ,  c(0,by,0),  spaces. 05,  angles135,  bordersF) 

} 


#  Shade  the  alpha  area 

# 

hatch(c(xb,al,xbc),  c(0,ay,0),  spaces. 05,  bordersF) 
title(  mains  "Test  of  Statistical  Hypothesis", 
subs"Ho  :  Right  Ha  :  Left") 
mtext(  s  idesl ,  linesO,  outersT,  labC33) 
mtext(  s  Idesl ,  llnesl,  outersT,  1  ab C 1 3 ) 
mtext(sidesi,  lines3,  outersT,  lab[2]) 
rm( al,nal,ay,be,nbe,by) 


MACRO  Screen2t(mu0,mu1,x3,x4,px0,px1 .xxO.xxl ,xx,lr,k,xbc, 
xcO,xc 1 ,mx,mn,xa,xb,xs,  lab) 

# 

#  This  macro  is  to  plot  the  likelihood  ratio  and 

#  test  of  the  statistical  hypothesis. 

#  (  Two  tail  test  ) 

# 

({ 

par(mfrow=c(2, 1) ,  oma=c(4,3,0,0) ) 

# 

#  Plot  the  Likelihood  Ratio  on  the  X  bar  axis 

# 

plot(xx,lr,  type="l",  xlab="Xbar",  ylabs"", 
err=-1 ) 

segments(xbc[ 1 ] ,0,xbc[ 1 ]  ,k[  1  ] ) 
segments(xbc[2] ,0,xbc[2] ,k[2] ) 
t itle( main= nL ikel  ihood  Ratio  Function", 
subslab[4] ) 

# 

#  Plot  the  Hypothesis  test  on  the  X  bar  axis 

# 

plot(x3,px0,  xlabs"Xbar",  ylabs"",  types"l", 
xl  imsc(mn,mx) ,err=-1 ) 

1  inesCx^.pxl) 

mtext(  sides2,  linesl,  outersT, 

"  Lambda  PDF  ") 

segments(mu0,xx0,mu0,0) 
segments(mu1 ,xx1 ,mu1 ,0) 
abl  ine( vsxbct  1]) 
abl ine(vsxbc[2]) 

# 

#  Find  the  alpha  area 

# 

apr_x3[x3  >  xbc[1]] 
napr_len( apr) 

apr_c(xbc[  1  ] ,  apr)  #  X  coordinates  for  right  side  of  alpha  area 
apl_x3tx3  <  xbc[2]] 
nap l__len(  apl) 

apl_c(apl,  xbc[2])  #  X  coordinates  for  left  side  of  alpha  area 

ayr_px0[( 101-napr) : 100] 

ayr_c(xc0[  1  ] ,  ayr)  #  Y  coordinates  for  right  side  of  alpha  area 
ayl_px0[ 1 :napl] 

ayl_c(ayl,  xc0[2])  #  Y  coordinates  for  left  side  of  alpha  area 

# 

Find  the  beta  area 

# 

be_xH[(x4<xbc[ 1 ] )  4  (x4>xbc[2])] 

nbe_len(be) 

if( nbe>0)  { 

minb  min(be) 


ibe  len(?which(x4<=minb) ) 
fbe~len(be) 
bxl_max(xbc[2] ,xs) 
bxr  max(xbc[1 ] ,xs) 

be_c(bxl,  be,  bxr)  #  X  coordinates  for  beta  area 

by_px1  [(max(  1 ,  ibe) )  :(max(  1 ,(  fbe+  ibe-1 ) ) )  ] 

miny_min(px1) 

byl_max(xc1 C2] ,m  iny) 

byr_max(xc1 [ 1 ] ,miny) 

by_c(byl,  by,  byr)  #  Y  coordinates  for  beta  area 

# 

#  Shade  the  beta  area 

# 

hatch(c(bxl,be,bxr) ,  c(0,by,0),  spaces. 05,  anglesi35,  bordersF) 
rm(minb,  ibe,  fbe,  bxl,  bxr,  miny,  byl,  byr,  by) 

} 

# 

#  Shade  the  alpha  area 

# 

hatch(c(xa, apl,xbc[2] ) ,  c(0,ayl,0),  spaces. 05,  bordersF) 
hatch(c(xbc[ 1 ] , apr,xb) ,  c(0,ayr,0),  spaces. 05,  bordersF) 
title(mains"Test  of  Statistical  Hypothesis", 

"Ho  :  Left  Ha  :  Right") 
mtext(sides1 ,  linesO,  outersT,  lab[3]) 
mtext(sides1 ,  linesl,  outersT,  lab[1]) 
mtext(  sidesl ,  lines3,  outersT,  lab[2]) 
rm( apr,napr,apl,napl,ayr,ayl,be,nbe) 


MACRO  screen3r(mu1 ,m1p,x5,x6,pzO,pz1 ,zx0,zx1 ,px,ze,pwr,zcO,zc1 , 
pwl ,mx,mn,xb,xs,lab) 

# 

#  This  macro  is  to  plot  the  test  of  the  statistical  hypothesis 

#  in  Z  scale  and  the  power  function, 

#  (  Right  tail  test  ) 

# 

({ 

par(mfhow=c(2, 1 ) ,  omasc(4,3,0,0) ) 

# 

#  Plot  the  Power  Function 

# 

plot(px,pwr,  type="l",  xlabs"MU",  ylabs"",  err=-1) 
segments(mu1 ,pw1 ,mu1 ,0) 
title( main=  "Power  Function  of  the  Test", 
sub=lab[51) 

# 

#  Plot  the  Hypothesis  test  on  the  Z  ax  is 

# 

plot(x5,pz0,  xlab="Z",  ylab="",  type="l", 
xl  im=c(mn,mx) ,err=-1 ) 

1  ines(x6,pz1 ) 
segmen  ts( 0 , zxO , 0 , 0 ) 
segments(m1p,zx1 ,m1p,0) 
abl  ine( v=zc) 

# 

#  Find  the  alpha  area 

# 

al_x5[x5  >  zcj 
nal_len(  al) 

al  c(zc,  al)  #  X  coordinates  for  alpha  area 
ay~pz0[( 101-nal) : 100] 

ay_c(zc0,  ay)  t  Y  coordinates  for  alpha  area 

# 

#  Find  the  beta  area 

# 

be_x6[x6  <  zc] 
nbe_len( be) 

be_c(be,  zc)  #  X  coordinates  for  beta  area 
by_pz1 [ 1 :(max(nbe, 1 ) ) ] 

by_c(by,  zcl)  #  Y  coordinates  for  beta  area 
f 

#  Shade  the  beta  area 

# 

if( nbe>0)  ( 

hatch(c(xs,be,zc) ,  c{0,by,0),  spaces, 05,  angles135,  bordersF) 
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# 

#  Shade  the  alpha  area 

# 

hatch(c(zc,al,xb) ,  c(0,ay,0),  spacer. 05,  border=F) 
tltle(main="Test  of  Statistical  Hypothesis", 
sub="Ho  :  Left  Ha  :  Right") 
mtext(side=2,  line=1,  outer=T, 

"  POWER  PDF  ") 

mtext(side=1,  line=0,  outer=T,  lab[33) 
mtext(side=1 ,  1  ine=1 ,  outer=T,  labCl]) 
mtext(  s  ide=1 ,  line=3,  outer=T,  lab[2]) 
rm( al,nal,ay,be,nbe,by) 

}) 

END 
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MACRO  screen31(mu1 ,m1p,x5,x6,pz0,pz1 ,zxO,zx1 ,px,zc,pwr,zc0,zc1 , 
pwl ,mx,mn,xb,xs,lab) 

# 

#  This  macro  is  to  plot  the  test  of  the  statistical  hypothesis 

#  in  Z  scale  and  the  power  function. 

#  (  Left  tail  test  ) 

# 

({ 

par(mfrow=c(2, 1 ) ,  oma=c(4,3,0,0) ) 

# 

t  Plot  the  Power  Function 

# 

plot(px,pwr,  type="l",  xlab="MU",  ylab="n,  err=-1) 
segmentsCmul ,pw1 ,mu1 ,0) 
title(main=  "Power  Function  of  the  Test", 
sub=lab[5]) 

# 

it  Plot  the  Hypothesis  test  on  the  Z  ax  is 

# 

plot(x5,pz0,  xlab="Z",  ylab="",  type="l", 
xl im=c(mn,mx) , err=-1 ) 

1  ines( x6,pz1 ) 
segmen ts( 0 , zxO ,0,0) 
segments(m1p,zx1 ,m1p,0) 
abl  ine( v=zc) 

# 

it  Find  the  alpha  area 

# 

al_x5tx5  <  zc] 
nal_len(  al) 

al_c(al,  zc)  #  X  coordinates  for  alpha  area 
ay_pzO[ 1 :nal] 

ay_c(ay,  zcO)  #  Y  coordinates  for  alpha  area 

# 

#  Find  the  beta  area 

# 

be_x6[x6  >  zc] 
nbe_len( be) 

be_c(zc,  be)  #  X  coordinates  for  beta  area 

by_pz1 [(m in( 100,  ( 101-nbe) ) ) : 100] 

by_c(zc1,  by)  #  Y  coordinates  for  beta  area 

# 

#  Shade  the  beta  area 

# 

if(nbe>0)  { 

hatch(c(zc,be,xs) ,  c(0,by,0),  space=.05,  angle=135,  border=F) 

1 
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#  Shade  the  alpha  area 

# 

hatch(c(xb,al,zc) ,  c(0,ay,0),  space=.05,  border=F) 
t  itle(main="Test  of  Statistical  Hypothesis", 
sub="Ho  :  Right  Ha  :  Left") 
mtext( s ide=2,  llne=1,  outer=T, 

"  POWER  PDF  ") 

mtext(slde=1 ,  line=0,  outer=T,  labC33) 
mtext(  s  ide=1 ,  llne=1,  outer=T,  lab[l]) 
mtext(side=1 ,  llne=3»  outer=T,  lab[2]) 
rm( al,nal, ay,be,nbe,by) 


******  ******  ****** 


MACRO  screen3t(mu1 ,m1p,x5,x6,pz0,pz1 ,zx0,zx1 ,px,zc ,pwr,zc0,zc1 , 
pwl ,mx,mn,za,zb,zs,lab) 

# 

#  This  macro  is  to  plot  the  test  of  the  statistical  hypothesis 

#  in  Z  scale  and  the  power  function. 

#  (  Two  tail  teat  ) 

# 

({ 

par(mfrow=c(2, 1 ) ,  omascC^^jOjO) ) 

# 

#  Plot  the  Power  Function 

i 

plot(px,pwr,  type="l",  xlab="MU",  ylab="",  err=-1) 
segments(mu1 ,pw1 ,mu1 ,0) 
title(main= "Power  Function  of  the  Test", 
sub=lab[5]) 

Plot  the  Hypothesis  test  on  the  Z  ax  is 

plot(x5,pz0,  xlab="Z",  ylab="",  type="l", 
xl  im=c(mn,mx) , err=-1 ) 

1  ines(x6,pz1 ) 
segments( 0,zx0,0,0) 
segmen  ts( m 1 p , zx 1 , m 1 p , 0 ) 
abl  ine( v=zc[ 1 ] ) 
abl  ine(v=zc[2]) 

Find  the  alpha  area 

apr_x5[x5  >  zc[1]] 
napr_len(  apr) 

apr_c(zc[1],  apr)  #  X  coordinates  for  right  side  of  alpha  area 
apl_x5tx5  <  zc[2]] 
napl_len( apl) 

apl_c(apl,  zc[2])  #  X  coordinates  for  left  side  of  alpha  area 

ayr_pz0[( 101-napr) : 100] 

ayr_c(  zc0[  1  ] ,  ayr)  #  Y  coordinates  for  right  side  of  alpha  area 
ayl_pz0[ 1 :napl] 

ayl_c(ayl,  zc0[2])  #  Y  coordinates  for  left  side  of  alpha  area 

Find  the  beta  area 


be_x6[ (x6<zc[ 1 ] )  &  (x6>zc[2])j 
nbe_len( be) 
if( nbe>0)  { 
m  inb_m  in(  be) 

ibe_len(  ?wh  ich(  x6<=m  inb) ) 
fbe_len( be) 
bxl  max( zc[2] ,zs) 
bxr  raax( zc[ 1 ] ,zs) 


be_c(bxl,  be,  bxr)  #  X  coordinates  for  beta  area 
by_pz1  [(max(  1 ,  ibe) )  :(max(  1 ,  (  fbe+ibe-1 ) ) )  ] 
miny_min(pz1 ) 
byl_max( zcl [2] ,m iny) 
byr_max( zcl [ 1 ] ,m iny) 

by_c(byl,  by,  byr)  #  Y  coordinates  for  beta  area 

# 

i  Shade  the  beta  area 

# 

hatch(c(bxl,be,bxr) ,  c(0,by,0),  spacer. 05,  anglerl35,  borderrF) 
rm(minb,  ibe,  fbe,  bxl,  bxr,  miny,  byl,  byr,  by) 

} 

# 

#  Shade  the  alpha  area 

# 

hatch( c( za, apl,zc[2] ) ,  c(0,ayl,0),  spacer. 05,  borderrF) 
hatch(c(zc[ 1 ] ,apr,zb) ,  c(0,ayr,0),  spacer. 05,  borderrF) 
title(mainr"Test  of  Stat  1st ical  Hypothesis", 
subr "Ho  :  Left  Ha  :  Right") 
mtext(  s  ider2,  linerl,  outerrT, 

"  POWER  PDF  ") 

mtext(  s  ider  1 ,  linerO,  outerrT,  lab[3l) 
mtext(  siderl ,  linerl,  outerrT,  lab[1]) 
mtext(  s  ider  1 ,  liner3,  outerrT,  lab[2]) 
rm( apr,napr, apl,napl, ayr , ayl,be,nbe) 


MACRO  screen4r(xba,xbc,pv,zc,zs,mmv,xv1 ,pxv,xxv,xcv,xn1 , 
bsl ,xv2,pzv,zxv,zcv,xn2,bs2, lab) 

# 

# 

#  This  macro  is  to  plot  the  test  result  for  right  tail  test. 

# 

({ 

muO_mmv[ 1 ] 
mu1_mmv[2] 
m1p_mmv[3] 
xx3_xv 1 [ 1 , 3 
xx4_xv1 [2, ] 
xx5_xv2 [1,3 
xx6_xv2[2, 3 
pxO_pxv[ 1 , ] 
px1_pxv[2, 3 
pzO  pzv[1,3 
pz1~pzv[2, 3 
xxO_xxv [ 1 3 
xx1_xxv[23 
zxO_zxv [ 1 3 
zx1_zxv[23 
xcO_xcv[ 1 3 
xc1_xcv[23 
zcO  zcv[13 
zc1~zcv[23 
mx_xn1 [ 1 3 
mn_xn1[23 
mxp__xn2  [  1 3 
mnp_xn2 [23 
xb_bs1 [ 1 3 
xs_bs1 [23 
xbp__bs2[  1 3 
xsp  bs2[23 

parTmfhow=c(2, 1 ) ,  oma=c(5,2,0,0)) 

# 

#  Plot  the  test  result  in  Xbar  axis. 

# 

plot(xx3,px0,  xlab="Xbar",  ylab="",  type="l", 
xl  im=c(mn,mx) ,err=-1 ) 

1  ines(xx4,px1 ) 

mtext(side=2,  line=1,  outer=T, 

"  PDF  PDF  ") 

3egments(mu0,xx0,mu0,0) 
segments(mu1 ,xx1 ,mu1 ,0) 
abl  ine( v=xbc) 

# 

#  Find  the  alpha  area 

# 

al_xx3[xx3  >  xbc] 
nal_len(  al) 

al  c(xbc,  al)  #  X  coordinates  for  alpha  area 


ay  pxO[( 101-nal) : 100] 

ay~c(xc0,  ay)  #  Y  coordinates  for  alpha  area 

# 

#  Find  the  beta  area 

# 

be_xx4[xx4  <  xbc] 
nbe_len(be) 

be  c(be,  xbc)  #  X  coordinates  for  beta  area 
byjpxltl :(max(nbe,1))] 

by  c(by,  xcl)  #  Y  coordinates  for  beta  area 

# 

if  Shade  the  beta  area 

# 

if(  nbe>0)  t 

hatch(c(xs,be,xbc) ,  c(0,by,0),  spaces. 05,  angle=135,  border=F) 

} 

# 

#  Shade  the  alpha  area 

# 

hatch(c(xbc,al,xb),  c(0,ay,0),  spaces. 05,  bordersF) 

# 

if  Indicate  the  Xbar» 
if 

arrows(xba,xx0/2,xba,0) 

title(mains"Result  of  Statistical  Test",  subslabt3]) 

# 

if  Plot  the  test  result  in  Z  axis. 

# 

plot(xx5,pz0,  xlabs"ZB,  ylabs"",  types”l”, 
xl  im=c(mnp,mxp) , errs-1 ) 

1  Ines(xx6,pz1 ) 
segments( 0 , zxO , 0 , 0 ) 
segments(m1p,zx1 ,m1p,0) 
abl  lne( vszc) 

# 

if  Find  the  alpha  area 

# 

al_xx5txx5  >  zc] 
naJ_len(  al) 

al  c(zc,  al)  #  X  coordinates  for  alpha  area 
ay  pz0[( 101-nal) : 100] 

ay~c(zc0,  ay)  #  Y  coordinates  for  alpha  area 

if 

#  Find  the  beta  area 

# 

be  xx6[xx6  <  zc] 
nbe_len( be) 

be  ^(be,  zc)  #  X  coordinates  for  beta  area 
by~pz1 [ 1 :(max( nbe, 1 ) ) ] 

by~c(by,  zcl)  #  Y  coord  inates  for  beta  area 
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# 

#  Shade  the  beta  area 

4 

if(nbe>0)  { 

hatch(c(xsp,be,zc) ,  c(0,by,0),  spaces. 05,  angles135,  bordersF) 

} 

# 

#  Shade  the  alpha  area 

# 

hatch(c(zc,al,xbp) ,  c(0,ay,0),  spaces. 05,  bordersF) 

# 

#  Indicate  the  Z* 

# 

arrows(zs,zx0/2,zs,0) 

title(subs"Ho  :  Left  Ha  :  Right") 

mtext(8ides1 ,  linesQ,  outersT,  lab[1]) 

mtext( s idesl ,  lines2,  outersT,  lab[2]) 

mtext(  s  idesl ,  lines3,  outersT,  lab[6]) 

dcs  ifelse( xba>xbc,  "Reject  Ho",  "Do  Not  Reject  Ho") 

mtext(  s  idesl ,  lines4,  outersT, 

encode( "Dec  is  ion  :  ",dcs,"  P-value  s",pv)) 
rm( al,nal,ay,be,nbe,by,dcs,mu0,mu1 ,m1p,xx3,xx4,xx5,xx6,px0, 
px 1 , pzO , pz 1 , xxO , xx 1 , zxO , zx 1 , xcO , xc 1 , zcO , zc 1 , mx , mn , 
mxp ,mnp , xb , xs , xbp , xsp ) 

}) 

END 
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MACRO  screen41(xba,xbc,pv,zc,zs,mmv,xv1  ,pxv,xxv,xcv,xn1 , 
bs 1 , xv2 , pzv , zxv , zcv , xn2 , bs2 , 1 ab ) 

# 

# 

#  This  macro  is  to  plot  the  test  result  for  left  tall  test. 

# 

({ 

muO_mmv [ 1 ] 
mul_mmv[2] 
m1p_mmv[3] 
xx3_xv1[1,] 
xx4_xv1 [2, ] 
xx5_xv2[ 1 , ] 
xx6_xv2[2, ] 
pxO_pxv[ 1 , ] 
px1_pxv[2, ] 
pzO_pzv[ 1 , ] 
pz1_pzv[2, ] 
xxO_xxv[ 1 ] 
xx1_xxv[2] 
zxO_zxv [ 1 ] 
zx1_zxv[2] 
xcO_xcv[ 1 ] 
xc1_xcv[2] 
zcO_zcv[ 1 ] 
zc1_zcv[2] 
mx_xn 1[1] 
mn_xn1 [2] 
mxp_xn2 [ 1 ] 
mnp_xn2 [ 2 ] 
xb_bs1 [ 1 ] 
xs_bs1 [2] 
xbp_bs2[ 1 ] 
xsp  bs2[2] 

parrmfY'ow=c(2, 1 ) ,  oma=c(5,2,0,0)) 

# 

#  Test  result  In  the  Xbar  axis. 


plot(xx3,px0,  xlab="Xbar",  ylab="",  type="l", 
xl  im=c(mn,mx) , err=-1 ) 

1  ines(xx4,px1 ) 

mtext( s ide=2,  llne=1,  outer=T, 

"  PDF  PDF  ") 

segments(mu0,xx0,mu0,0) 
segments(mu1 ,xx1 ,mu1 ,0) 
abl  lne( v=xbc) 
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# 

#  Find  the  alpha  area 

# 

al_xx3txx3  <  xbc] 
nal  len(al) 

al_c(al,  xbc)  #  X  coordinates  for  alpha  area 
ay  pxO[ 1 :nal] 

ay  c(ay,  xcO)  t  Y  coordinates  for  alpha  area 

# 

#  Find  the  beta  area 

# 

be  xx4[xx4  >  xbc] 
nbe_len(be) 

be  c(xbc,  be)  #  X  coordinates  for  beta  area 
by_px1[(min( 100,  (101-nbe)))  :  100] 
by  c(xc1,  by)  #  Y  coordinates  for  beta  area 

# 

#  Shade  the  beta  area 

i 

if(nbe>0)  { 

hatch(c(xbc,  be,  xs) ,  c(0,by,0),  spaces. 05,  angle=135, 
} 

# 

#  Shade  the  alpha  area 

# 

hatch(c(xb,al,xbc) ,  c(0,ay,0),  spaces. 05,  bordersF) 

# 

#  Indicate  the  Xbar* 

9 

arrows(xba,xx0/2,xba,0) 

title(mains"Result  of  Stat istical  Test",  subslab[3]) 

# 

#  Test  result  In  Z  axis. 

# 

plot(xx5,pz0,  xlabs"Z",  ylabs"",  types"l", 
xl  imsc(mnp,mxp) , errs-1 ) 

1 ines(xx6,pz1 ) 
segmen  ts( 0 , zxO ,0,0) 
segments(m1p,zx1 ,m1p,0) 
abl  lne( vszc) 

# 

#  Find  the  alpha  area 

# 

al_xx5[xx5  <  zc] 
nal_len( al) 

al_c(al,  zc)  #  X  coordinates  for  alpha  area 
ay_pz0[ 1 :nal] 

ay  c(ay,  zcO)  #  Y  coordinates  for  alpha  area 
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#  Find  the  beta  area 

# 

be_xx6[xx6  >  zc] 
nbe_len( be) 

be)  #  X  coordinates  for  beta  area 
by_pz1[(min( 100,  ( 101-nbe) ) ) : 100] 
by_c(zc1,  by)  #  y  coordinates  for  beta  area 

# 

#  Shade  the  beta  area 

# 

if( nbe>0)  { 

hatch(c(zc,be,xsp) ,  c(0,by,0),  spaces. 05,  anglesi35,  border=F) 

# 

#  Shade  the  alpha  area 

# 

hatch(c(xbp,al,zc) ,  c(0,ay,0),  spaces. 05,  bordersF) 

#  Indicate  the  Z* 

# 

arrows! zs,zx0/2,zs,0) 

title!  subs  "Ho  :  Right  Ha  :  Left") 

mtext(sidesl ,  linesO,  outersT,  labtl]) 

mtext!  sidesl ,  lines2,  outersT,  lab[2]) 

mtext! s ides  1 ,  lines3,  outersT,  lab[6]) 

dcs^ifelse! xba>xbc ,  "Do  Not  Reject  Ho",  "Reject  Ho") 

mtext!  sidesl ,  lines4,  outersT, 

encode! "Dec  is  ion  :  ",dcs,"  P-value  s",pv)) 
rm( al,nal , ay,be,nbe,by ,dcs,mu0,mu1 ,m1p,xx3,xx4,xx5,xx6, 
pxO.pxl ,pz0,pz1 ,xx0,xx1 ,zx0,zx1 ,xc0,xc1 ,zc0,zc1 , 
mx,mn,mxp,mnp,xb,xs,xbp,xsp) 
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MACRO  screen4t(xba,xbc,pv,zc,zs,mmv,xv1 ,pxv,xxv,xcv,xn1 , 
bsl ,xv2,pzv,zxv,zcv,xn2,bs2, lab) 

This  macro  is  to  plot  the  test  result  for  two  tail  test 


muO  mmv [ 1 ] 
mul  mmv[2] 
mlp  mmv[3] 
xx3_xv1 [ 1 , ] 
xx4_xv1[2,] 
xx5_xv2[1 ,] 
xx6_xv2[2, ] 
pxO_pxv[ 1 , ] 
px1_pxv[2,] 
pzO~pzv[ 1 , ] 
pz1~pzv[2,] 
xxO~xxv[ 1 ] 
xx1_xxv[2] 
zxO  zxvtl] 
zx1_zxv[2] 
xcO_xcv[ 1:2] 
xc1_xcv[3:4] 
zcO_zcv[ 1:2] 
zo1_zov[3:4] 
mx_xn1  [  1  ] 
mn_xn1 [2] 
mxp_xn2[  1  ] 
mnp_xn2[2] 
xa_bs1  [  1  ] 
xb_bs1 [2] 

xs_bs1 [3] 
za_bs2[ 1 ] 
zb_bs2[2] 
zd_bs2E3] 

par(mfrow=c(2, 1 ) ,  oma=c(5,2,0,0) ) 

# 

#  Test  result  in  Xbar  axis. 

# 

plot(xx3,px0,  xlab="Xbar" ,  ylab="",  type="l", 
xl im=c(mn,mx) ,err=-1 ) 

1  ines(xx4,px1 ) 

mtext( s ide=2,  lineal,  outer=T, 

"  PDF  PDF  ") 

segments(iau0,xx0,mu0,0) 
segments(mu1 ,xx1 ,ou1 ,0) 
abl  ine( v=xbc) 


# 

#  Find  the  alpha  area 

# 

apr_xx3txx3  >  xbc[1]] 
napr_len( apr) 

apr_c(xbc[  1  ] ,  apr)  #  X  coordinates  for  right  side  of  alpha  area 
apl_xx3[xx3  <  xbc[233 
napl_len( apl) 

apl_c(apl,  xbc[2])  4  X  coordinates  for  left  side  of  alpha  area 

ayr_pxO[( 101-napr) : 100] 

ayr_c(xc0[ 1 ] ,  ayr)  4  Y  coordinates  for  right  side  of  alpha  area 
ayl_pxO[ 1 :napl] 

ayl_c(ayl,  xc0[2])  #  Y  coordinates  for  left  side  of  alpha  area 

# 

4  Find  the  beta  area 

# 

be_xx4[(xxiKxbc[  1])  4  (xxJj>xbc[2] )  3 

nbe_len(be) 

if(nbe>0)  { 

minb_min(be) 

ibe_len(?which(xx4<=minb) ) 
fbe_len( be) 
bxl_max(xbc[2] ,xs) 
bxr_max(xbc[ 1 ]  ,xs) 

be_c(bxl,  be,  bxr)  #  X  coordinates  for  beta  area 
by_px1 [(max( 1 , ibe) ) :(max( 1 ,(  fbe+ ibe-1 ) ) ) ] 
m  iny_m  in(  px  1 ) 
byl_max(xc1 [2] ,m  iny) 
byr_max( xc 1 [ 1 ] , m iny ) 

by_c(byl,  by,  byr)  #  Y  coordinates  for  beta  area 

# 

#  Shade  the  beta  area 

# 

hatch(c(bxl,be,bxr) ,  c(0,by,0),  spaces. 05,  angles135,  bordersF) 
rm(minb,  ibe,  fbe,  bxl,  bxr,  miny,  byl,  byr,  by) 

} 

4 

#  Shade  the  alpha  area 

# 

hatch(c(xa, apl,xbc[2] ) ,  c(0,ayl,0),  spaces. 05,  bordersF) 
hatch(c( xbc[ 1 ] , apr,xb) ,  c(0,ayr,0),  spaces. 05,  bordersF) 

# 

4  Indicate  the  Xbar* 

# 

arrows(xba,xx0/2,xba,0) 

title(mains"Result  of  Stat  istical  Test",  subslabtl]) 
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#  Shade  the  alpha  area 

# 

hatch(c(za,apl,zc[23) »  c(0,ayl,0),  spaces. 05, 
hatch(c( zct 1 ] , apr,zb) ,  c(0,ayr,0),  spaces. 05, 


bordersF) 

border=F) 


#  Indicate  the  Z* 

# 

arrows( zs,zx0/2,zs,0) 

title(malnslab[3l  ,subs"Ho  :  Left  Ha  :  Right") 
mtext(sides1,  linesO,  outersT,  lab[1J) 
mtext( s Ides  1 ,  llnesi,  outersT,  lab[23) 
mtext( s ides  1 ,  1  lnes2,  outersT,  lab[63) 
mtext(sldes1 ,  lines3,  outersT,  lab[73) 
dcs_  ifelse( ( ( xba>xbc[ 1 3 )  !  (xba<xbc[23 ) ) ,  "Reject  Ho", 
~"Do  Not  Reject  Ho") 
mtext(sides1 ,  1  lnes4 ,  outersT, 

encode(  "Dec  Is  ion  :  ",dcs,"  P-value  s",pv)) 
rm( apr,napr,apl,napl,ayr,ayl,be,nbe,dcs,mu0,mu1 , 
m1p,xx3,xx4,xx5,xx6,px0,px1 ,pz0,pz1 ,xx0,xx1 ,zx0, 
zxl ,xc0,xc1 ,zc0,zc1 ,mx,mn,mxp,mnp,xa,xb,xs,za,zb, 
zd) 
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MACRO  test2 

({ 

?MESSAGE( ) 

?MESSAGE( Null  Hypothesis  Ho  :  MU  =  MUo) 

?MESSAGE( Please  select  proper  alternative  hypothesis.) 
?MESSAGE( ) 


item  c("  Ha  : 

MU 

> 

MUo 

( R  ight 

tail 

test)". 

"  Ha  : 

MU 

< 

MUo 

(Left 

tail 

test)". 

"  Ha  : 

MU  !  = 

MUo 

(Two 

tail 

test) ") 

action_c(  "?test2r", 
"?  test21" , 
"? test2t" ) 
menu(  item,  action) 
rm(  item,  action) 

}) 

END 
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MACRO  test2r( 

xb/?PROMPT( X  bar  :  )/, 
nv/?PROMPT( Sample  Size  :  )/, 
sv/?PROMPT( Sample  S.D.  :  )/, 
mO / ? P ROMPT( MUo  :  )/, 
al/?PROMPT( Alpha  :  )/, 


es/?PROMPT( Effect  Size  for  computing  power  :  )/) 
chapter 


#  This  macro  is  to  test  for  a  mean  for  a  normal  population 

#  with  unknown  sigma. 

#  (  Right  tail  test  ) 

# 

? MESSAGE ( ) 

?T(xb)_xb 
?T(n)_nv 
?T(s)  sv 
?T(m07_m0 
?T(  a)_al 
?MESSAGE( ) 

?MESSAGE( Effect  size  is  the  distance  between  MUo  and  Mul,) 

? MESSAGE (  and  it  is  absolute  value.) 

?MESSAGE( ) 

?T( es)_es 

?T( ss)_?T( s) /sqrt(?T( n) ) 

?T( ml ) _ ?  T(  mO)+?T(  es) 

# 

#  Compute  quantile  for  following  populations  from  cdf=.Q01  to  .999 

#  normal  population  :  N(MUo,  sigma)  &  N(MUo,  s igma/sqrt( n) ) 

#  N ( MU 1 ,  sigma)  &  N(MU1,  s igma/sqrt( n) ) 

# 

x1_qnorm( .001 ,  ?T(mO),  ?T(s)) 
x2_qnorm( .999»  ?T(mO),  ?T(s)) 
x3_qnorm( .001 ,  ?T(m1),  ?T(s)) 
x4  qnorm(.999,  ?T(m1),  ?T(s)) 

?TT"x1  )_seq(x1  ,x2,  len=100) 

?T(x2)  seq(x3,x4,  len=100) 

?T(x127_max(?T(x1),?T(x2)) 

?T(n12)  min(?T(x1),?T(x2)) 

# 

t  Compute  PDF  for  normal  population. 

# 

?T( pm0)_dnorm( ?T( xl ) ,  ?T(mO),  ?T( s) ) 

?T(pm1 )_dnorm(?T(x2) ,  ?T(m1),  ?T(s)) 

# 

#  Compute  maximum  pdf  for  both  normal  distribution 

# 

?T(mxO)_dnorm(?T(mO) ,  ?T(mO),  ?T(s)) 

?T(mx1)  dnorm( ?T( ml ) ,  ?T(m1),  ?T(s)) 
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#  Make  proper  label 

# 

label 1_encode( "  MUo  =",?T(mO),"  MU1  =  ",  ?T(m1), 

"  Estimated  sigma  =",?T(s),"  Effect  Sl2e  =  n,?T(es)) 

# 

4  Call  macro  to  plot  the  screen  1. 

4 

?  screen 1p(?T(mO) ,?T(m1),?T(x1),?T(x2)/?T( pmO) ,?T( pml ) , 

?T(mxO) ,?T(mx1) ,?T(x12) ,?T(n12) .label 1) 

Compute  PDF  in  t  scale 

?T(ncp)_( ?T(m1 ) -?T(mO) )/?T( ss) 

?T(  d  f)_?T(  n)  -1 
?T(  tc)  qt((1-?T(a)),?T(df)) 

?T(  tcOT_dt(  ?T(  tc) ,  ?T(d  f ) ) 

x5_qt(  .001 ,  ?T(  d  f) ) 
x6  qt(  .999 .  ?T(df)) 

?tTx3)  seq(x5,x6,  len=100) 

?T(pt07_dt(?T(x3),  ?T(  d  f) ) 
nctout_nct(?T(ncp)  ,?T(df)  ,6) 

?T(x4)  nctout$ord 
?T(ptl7_nctout$density 
?T(x34)_max(?T(x3) ,?T(x4) ) 

?T(n34)_min(?T(x3),?T(x4)) 

?T(xn)_c(?T(x34),  ?T(n34)) 

Compute  likelihood  ratio  on  the  t-axis 

?T( lr)_( 1+((?T(x3)"2)*( 1/?T(df))))"(-?T(n}/2) 

?T(kM  1+((?T(  tc)"2)*(  1/?T(df))))"(-?T(n)/2)  #  Likelihood  ratio 

4  at  the  t-critical  value 

Find  the  pdf  which  is  the  closest  to  the  pdf  of  t-critical  value 
to  shade  th  beta  area  by  finding  the  position  in  the  vector. 

nnot_len(?which(?T(x4)<=?T(  tc) ) ) 

?T(tc1)  ?T(pt1)[max(  1  ,nnct) ] 

Compute  Power  Function 

pwrmu_seq(?T(mO)-?T( s) ,  ?T( mO)+2*?T( s) ,  len=60) 
pwrncp_(pwrmu-?T(mO) )/?T(  ss) 
pwrcd  f nctp{ pwrncp,?T( d  f)  ,?T( tc) ) 

?T(pwr7  1 -pwrcd f 

Compute  beta  when  mu  =  mul 

?T(b)_nctp(?T(ncp)  ,?T(df)  ,?T(  tc)) 

?T( pwl )  1-?T( b) 


#  noncentral  t  parameter 

#  Degree  of  freedom 
4  t  critical  value 

#  PDF  at  t  critical  value  under 
4  the  null  distribution 


#  T  quantile  for  null  distribution 
4  PDF  for  null  distribution 

#  T  quantile  coresponding  to  PDF 

4  PDF  for  alternative  distribution 
4  maximum  value  on  the  x-axis 
4  minimum  value  on  the  x-axis 
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it  Compute  maximum  pdf  for  both  t  distribution 

# 

?T(txO)  dt(0,?T(df))  it  max  pdf  under  the  null  distribution 

?T(  txl  )~max(?T(  ptl ) )  it  max  pdf  under  alternative  distribution 

# 

#  Test  results 
it 

?T( ts)_(?T(xb)-?T(mO) )/?T( ss) 

?T(pv)_1-pt(?T( ts) ,  ?T(d f) ) 

# 

it  Make  proper  label 
it 

label 1_encode("  MUo  =",?T(mO),"  MU1  =  ",  ?T(m1), 

"  Estimated  sigma  =",?T(s)) 

label2_encode(  "Effect  Size  =  ",?T(es),"  Sample  size  =  ",  ?T(n)) 
label3_encode( "/ ///  :  Alpha  (",?T(a),")  WWWWWWWW", 
"Beta  ( ",?T( b) , ") ") 

label4_encode(  "T-cr  it  ical  :",?T(tc),"  LR  :",?T(k)) 
label5_encode(  "T  »  =  ",?T(ts),n  T  or  it  =  ",?T(tc)) 
label6_encode( "When  MU  =  ",?T(m1),"  Power  =  »,?T(pw1)) 
label_c( label 1,label2,label3,label4,label5,label6) 
it 

it  Call  macro  to  plot  screen2  and  screen3 
it 

?screen23rp(?T(ncp) ,?T( to) ,?T( tcO) ,?T( tel ) ,?T(x3) ,?T(x4) , 

?T(ptO),?T(pt1),?T(xn)*?T(lr) ,?T(k) ,?T( txO) ,?T( txl), 
pwrmu , ?T( pwr) ,?T( pwl ) ,?T( ml ) ,?T( ts) ,?T(pv) .label) 

# 

rm(?T(mO) ,?T(m1 ) ,?T( a) ,?T(es) ,?T(xb) ,?T( s) ,?T(n) ,?T( ss) , 
x1,x2,x3,x4,x5,x6,?T(x1),?T(x2),?T(x3),?T(x4),?T(x12), 

?T( n12) .label 1 , label2 , label3 , label4 , label5 , label6 .label , 
?T(ptO),?T(pt1),?T(lr),?T(k),?T( ncp) ,?T( d  f)  ,?T( tc), 

?T( tcO) ,?T(  tel ) ,nctout,?T( x34) ,?T( n34) ,nnct, pwrmu, ?T(xn) , 
pwrncp.pwrcd  f,?T(pwr) ,?T( b) ,?T( pwl ) ,?T( txO) ,?T( txl ) , 

?T( ts) ,?T( pmO) ,?T(pm1),?T(mxO),?T(pv) ,?T(mx1)) 

}) 


MACRO  test21( 

xb/?PROMPT( X  bar  :  )/, 
nv/?PR0MPT( Sample  Size  :  )/, 
sv/?PROMPT( Sample  S.D.  :  )/, 
mO/?PROMPT(MUo  :  )/, 
al/?PR0MPT( Alpha  :  )/, 


es/?PR0MPT( Effect  Size  for  computing  power  :  )/) 
chapter 
({ 

# 

#  This  macro  is  to  test  for  a  mean  for  a  normal  population 
4  w  ith  unknown  s  igma. 

4  (  Left  tail  test  ) 

# 

?MESSAGE( ) 

?T(xb)_xb 
?T(n)_nv 
?T( s)  sv 
?T(mOT_mO 
?T(a)_al 
?MESSAGE( ) 

?MESSAGE(  Effect  size  is  the  distance  between  MUo  and  Mul,) 
?MESSAGE(  and  it  is  absolute  value.) 

?MESSAGE( ) 

?T( es)_es 

?T( ss)_?T( s)/sqrt( ?T( n) ) 

?T(m1)_?T(mO)-?T(es) 

4 

4  Compute  quantile  for  following  populations  fhom  cdfs.001  to  .999 
4  normal  population  :  N(MUo,  sigma)  4  N(MUo,  s  igma/sqrt( n) ) 

4  N( MU1 ,  sigma)  &  N(MU1,  s igma/sqrt( n) ) 

4 

x1_qnorm( .001 ,  ?T(mO),  ?T(s)) 
x2_qnorm( .999,  ?T(mO),  ?T(s)) 
x3_qnorm( .001 ,  ?T(m1),  ?T(s)) 
x4  qnorm( .999 ,  ?T(m1),  ?T( s) ) 

?t7x1 )_seq(x1 ,x2,  len=100) 

?T(x2)  seq(x3,x4,  len=100) 

?T(x12T_max(?T(x1),?T(x2)) 

?T(n12)_min(?T(x1 )  ,?T(x2) ) 

4 

4  Compute  PDF  for  normal  population. 

# 

?T(pm0)_dnorm(?T(x1),  ?T(mO),  ?T(s)) 

?T(pm1)_dnorm(?T(x2),  ?T(m1),  ?T(s)) 

# 

4  Compute  maximum  pdf  for  both  normal  distribution 

4 

?T(mxO)_dnorm(?T(mO) ,  ?T(mO),  ?T(s)) 

?T(  mxl )  dnorm(  ?T(  ml ) ,  ?T(m1),  '’T(s)) 


#  Make  proper  label 

# 

label  1_encode( "  MUo  =",?T(mO),"  MU1  =  ",  ?T(m1), 

"  Estimated  sigma  =",?T(s),"  Effect  Size  =  ",?T(es)) 

# 

#  Call  macro  to  plot  the  screen  1. 

# 

? screen 1p(?T(mO) ,?T(m1 ) ,?T(x1 ) ,?T(x2) ,?T(pmO) ,?T(pm1 ) , 
?T(mxO),?T(mx1),?T(x12),?T(n12), label 1) 

# 

#  Compute  PDF  In  t  scale 

# 

?T(ncp)  (?T(m1 )-?T(mO) )/?T( ss)  #  noncentral  t  parameter 
?T(df)_?T(n)-1  9  Degree  of  freedom 

?T(tc)  qt(?T(  a)  ,?T(df) )  9  t  critical  value 

?T(  tcOT_dt(?T(  tc) ,  ?T(df))  9  PDF  at  t  critical  value  under 

#  the  null  distribution 

x5_qt(.001,  ?T( d f) ) 
x6  qt(  . 999 »  ?T(df)) 

?tTx3)  seq(x5,x6,  len=100)  9  T  quantile  for  null  distribution 

?T(  pto7_dt(  ?T(  x3) ,  ?T(df) )  #  PDF  for  null  distribution 

nctout_nct(?T(ncp)  ,?T(df)  ,6) 

?T(x4)  nctout$ord  #  T  quantile  coresponding  to  PDF 

?T( ptlT_nc tout$dens ity  9  PDF  for  alternative  distribution 

?T(x34)_max(?T(x3)  ,?T(x4) )  9  maximum  value  on  the  x-axis 

?T(n34)_min(?T(x3)  ,?T(x4))  #  minimum  value  on  the  x-axis 

?T(xn)  c(?T(x34),  ?T(n34)) 

9 

9  Compute  likelihood  ratio  on  the  t-ax is 

# 

?T( lr)  ( 1+((?T(x3)“2)*( l/?T(d f) ) ) ) *( -?T(n)/2) 

?T(k)_Tl+((?T(tc)“2)»(  1/?T(df))))“(-?T(n)/2)  #  Likelihood  ratio 

#  at  the  t-critical  value 

# 

9  Find  the  pdf  which  is  the  closest  to  the  pdf  of  t-critical  value 
9  to  shade  th  beta  area  by  finding  the  position  In  the  vector. 

# 

nnct_len(?which(?T(x4)<=?T{  tc) ) ) 

?T(  tc1)_?T(pt1 )  [max(  1  ,nnct)  ] 

# 

9  Compute  Power  Function 

9 

pwrmu_seq(?T(mO)-2#?T( s) ,  ?T( mO)+?T( s) ,  len=60) 
pwrncp  (pwrmu-?T(mO) )/?T( ss) 

?T(pwr7_nctp(pwrncp,?T(df) ,?T( tc)) 

9 

9  Compute  beta  when  mu  =  mul 

9 

?T(pw1)_nctp(?T(ncp)  ,?T(df)  ,?T(  tc)) 

?T(  b)  1-?T(pwl ) 
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# 

#  Compute  maximum  pdf  for  both  t  distribution 

# 

?T(  tx0)_dt(0,?T(d  f) )  #  max  pdf  under  the  null  distribution 

?T(  txl  )_max(?T(  ptl ) )  #  max  pdf  under  alternative  distribution 

# 

#  Test  results 

# 

?T( ts)_(?T(xb)-?T(mO) )/?T( ss) 

?T(pv)  pt(?T(ts),  ?T(d  f) ) 

# 

#  Make  proper  label 

# 

label 1_encode( "  MUo  =",?T(mO),"  MU1  =  ",  ?T(m1), 

"  Estimated  sigma  =",?T(s)) 

label2__encode(  "Effect  Size  =  ",?T(es),"  Sample  size  =  ",  ?T(n)) 
label3_encode( "////  :  Alpha  (",?T(a),")  WWWWWWWW", 
"Beta  (",?T(b) ,")") 

label4_encode(  "T-cr  itical  :",?T(tc),"  LR  :",?T(k)) 
label5_encode(  "T  *  =  ",?T(ts),"  T  crit  =  ",?T(tc)) 
label6_encode( "When  MU  =  ",?T(m 1),"  Power  =  ",?T(pw1)) 
Iabel_c(label1,label2,label3,label4,label5,label6) 

# 

#  Call  macro  to  plot  screen2  and  screen3 

# 

?screen231p(?T(ncp),?T( tc),?T{ tcO),?T( tel ) ,?T(x3) ,?T(x4) , 

?T(ptO) ,?T(  ptl ) ,?T(xn) ,?T(  lr) ,?T(k) ,?T( txO) ,?T( txl ) , 
pwrmu,?T( pwr) ,?T(pw1) ,?T(m1 ) ,?T( ts) ,?T(pv) ,  label) 

# 

rm(?T(mO) ,?T(m1)f?T(a),?T(es),?T(xb),?T(s)f?T(n),?T(ss), 
x1,x2,x3,x4,x5,x6,?T(x1),?T(x2),?T(x3),?T(x4),?T(x12), 

?T( n12), label 1,label2,label3,label4,label5,label6, label, 

?T(  ptO )  ,?T(  ptl ) , ?T(  lr)  ,?T(  k)  ,?T(  ncp)  ,?T(df)  ,?T(  tc) , 

?T( tcO) ,?T( tel) ,nctout,?T(x34) ,?T(n34) ,nnct,pwrmu, 
pwrncp,?T(  pwr) ,?T( b) ,?T(pw1 ) ,?T( txO) ,?T( txl ) ,?T(xn) , 

?T( ts) ,?T( pmO) ,?T( pml ) ,?T( mxO) ,?T( pv) ,?T(mx1)) 

)) 

END 
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MACRO  test2t( 

xb/?PROMPT(X  bar  :  )/, 

nv/?PROMPT( Sample  Size  :  )/, 
sv/?PR0MPT( Sample  S.D.  :  )/, 
mO/?PROMPT(MUo  :  )/, 

al/?PR0MPT( Alpha  :  )/, 

e3/?PROMPT( Effect  Size  for  computing  power  :  )/) 
chapter 
({ 

# 

#  This  macro  is  to  test  for  a  mean  for  a  normal  population 

#  with  unknown  sigma. 

#  (  Two  tail  test  ) 

# 

?MESSAGE( ) 

?MESSAGE(For  two  tail  test,  alternative  distribution  should) 
?MESSAGE( ex ist  in  both  sides  of  the  null  distribution,  however,) 
?MESSAGE(  for  simplification  of  plotting,  only  right  side  ) 
?MESSAGE(  alternative  distribution  will  be  plotted.) 

?MESSAGE( ) 

?T(xb)_xb 
?T(n)_nv 
?T(s)  sv 
?T(m07_m0 
?T(  a)_al 
?MESSAGE( ) 

?MESSAGE( Effect  size  is  the  distance  between  MUo  and  Mul,) 
?MESSAGE(  and  it  is  absolute  value.) 

?MESSAGE( ) 

?T( es)_abs( es) 

?T( ss)_?T( s)/sqrt( ?T(n) ) 

?T(m1)_?T(mO)+?T(es) 

# 

#  Compute  quantile  for  following  populations  from  cdf=.001  to  .999; 

#  normal  population  :  N(MUo,  sigma)  &  N(MUo,  sigma/ sqrt(n) ) 

#  N(  MU1 ,  sigma)  &  N(MU1,  s  igma/sqrt(  n) ) 

# 

x1_qnorm( .001 ,  ?T(mO),  ?T(s)) 
x2_qnorm( .999,  ?T(o0),  ?T(s)) 
x3_qnorm( .001 ,  ?T(m1),  ?T(s)) 
x4  qnorm( .999,  ?T(m1),  ?T(s)) 

?tTx1 )_seq(x1 ,x2,  len=100) 

?T(x2)  3eq(x3,x4,  len=100) 

?T(x12l  max(?T(x1 ) ,?T(x2) ) 

?T(n12)~m  in(?T(x1) ,?T(x2) ) 

# 

#  Compute  PDF  for  normal  population. 

t 

?T(pm0)_dnorm(?T(x1 ) ,  ?T(mO),  ?T(s)) 

?T(pm1)  dnorm(?T(x2) ,  ?T(m1),  ?T(s)) 
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#  Compute  maximum  pdf  for  both  normal  distribution 

# 

?T(mxO)  dnorm(?T(mO) ,  ?T(mO),  ?T(s)) 

?T(mx1)~dnorm(?T(m1),  ?T(m1),  ?T(s)) 

# 

#  Make  proper  label 

# 

label 1_encode( "  MUo  =",?T(mO),”  MU1  =",  ?T(m1), 

"  Estimated  sigma  =",?T(s),n  Effect  Size  =  ",?T(es)) 

# 

#  Call  macro  to  plot  the  screen  1. 

# 

? screen 1p(?T(mO) ,?T(m1 ) ,?T(x1 ) ,?T(x2) ,?T(pmO) ,?T(pm1 ) , 

?T(mxO) ,?T(mx1),?T(x12) ,?T(n12), label 1) 

Compute  PDF  in  t  scale 

?T(ncp)__(?T(m1  )-?T(mO)  )/?T(  ss)  #  noncentral  t  parameter 
?T(df)_?T(n)-1  #  Degree  of  freedom 

twoal  c( ( 1-(?T( a)/2) ) ,  ?T(a)/2) 

?T(tcT_qt(  twoal,?T(df))  #  t  critical  value 

...  Two~tail  test  has  two  t-critical  values,  and  here  the 
first  one  is  right  side  of  the  t-critical  value,  and  the  second 
one  is  the  other. 

?T(  tcO)_dt( ?T(  tc) ,  ?T(df) ) 

x5_qt(  .001 ,  ?T( d f) ) 
x6  qt(  .999 ,  ?T(df)) 

?TTx3)  seq(x5,x6,  len=100) 

?T(ptoT__dt(?T(x3) ,  ?T(df) ) 
nc tout_nc  t( ?T( ncp)  ,?T(d f)  ,6) 

?T(x4)  nctout$ord 
?T( ptlT_nc tout$dens ity 
?T(x34)_max(?T(x3),?T(x4)) 

?T(n34)~min(?T(x3)  ,?T(x4)) 

?T(xn)_c(?T(x34),  ?T(n34)) 

# 

#  Compute  likelihood  ratio  on  the  t-axis 

# 

?T( Ir)  ( 1+((?T(x3)“2)»(  1/?T(df) )))“(  -?T(n)/2) 

?T(  k)  Tl+(  (?T(  tc)*2)*C  1/?T(df) ) )  )“(-?T(n)/2)  #  Likelihood  ratio 

#  at  the  t-critical  value 

# 

#  Find  the  pdf  which  is  the  closest  to  the  pdf  of  t-critical  value 

#  to  shade  th  beta  area  by  finding  the  position  in  the  vector. 

# 

nnctr  len( ?wh ich( ?T( x4)<=?T( tc)[1])) 
nnc  tl~len( ?wh  ich( ?T( x4 ) <=?T( tc)[2])) 


#  PDF  at  t  critical  value  under 

#  the  null  distribution 


#  T  quantile  for  null  distribution 

#  PDF  for  null  distribution 

#  T  quantile  coresponding  to  PDF 

4  PDF  for  alternative  distribution 

#  maximum  value  on  the  x-axis 

#  minimum  value  on  the  x-axis 


J 


■j 


tclr  ?T(pt1)[max( 1,nnctr)3 
tc11~?T(pt1 ) [max( 1 .nnctl) ] 

?T(tc1)  c(tc1r,  tell) 

# 

#  Compute  Power  Function 

# 

pwrmu_seq(?T(mO)-?T( s) ,  ?T(mO)+2*?T( s) ,  len=60) 
pwrncp_( pwrmu-?T( mO ) ) /?T( ss) 
pwrcdft-_nctp(pwrncp,?T(df)  ,?T(  tc)[1]) 
pwred  fl  nctp(pwrncp,?T(df)  ,?T(  tc)  [2] ) 

?T( pwr  )~1 -pwred  fr+pwred  fl 

# 

#  Compute  beta  when  mu  =  mul 

# 

be tar_nc tp( ?T( nep )  ,?T(df)  ,?T(  tc)[  13) 
betal_nctp(?T(ncp),?T(df),?T(  te)[23) 

?T( b)_betar-betal 
?T(pw1)_1-?T(b) 

# 

#  Compute  maximum  pdf  for  both  t  distribution 
i 

?T(  txO)  dt(0,?T(df) )  #  max  pdf  under  the  null  distribution 

?T(  txl  )“max(?T(pt1 ))  #  max  pdf  under  alternative  distribution 

# 

#  Test  results 

# 

?T( ts)_( ?T(xb)~?T( mO) )/?T(  ss) 

?T(pv)  ifelse(?T(xb)<?T(mO),2*(pt(?T(ts),  ?T(df))), 

~2*(  1-(pt(?T(  ts) ,  ?T(df))))) 

# 

#  Make  proper  label 

# 

label 1_encode("  MUo  =",?T(mO),"  MU1  =  ",  ?T(m1), 

"  Estimated  sigma  =",?T(s)) 

label2_encode(  "Effect  Size  =  ",?T(es),"  Sample  size  =  ",  ?T(n)) 
label3  encode("////  :  Alpha  (",?T(a)f")  WWWWWWWW, 
"Beta  (",?T(b) ,")") 

label4_encode("T-critical  :",?T(  tc)  C 1 3  ,"or",?T(  tc)  [2] ,"  LR 
:",?T(k) [T] ) 

label5_encode(  "T  *  =  ",?T(ts),"  T  crit  = 

",?T( tc) [ 1 ] , "or" ,?T( tc) [2] ) 

label6_encode( "When  MU  =  ",?T(m1),"  Power  =  ",?T(pw1)) 
label_c( label 1 , label2, label 3,1 abel4, labels ,label6) 

# 

#  Call  macro  to  plot  screen2  and  screen3 

# 

?screen23tp(?T(ncp) ,?T( tc) ,?T( tcO) ,?T( tel ) ,?T(x3) ,?T(x4) , 
?T(ptO),?T(pt1),?T(xn),?T(lr),?T(k), 

?T( txO) ,?T( txl ) ,pwrmu,?T( pwr) , ?T(pw1 ) ,?T(m1 ) , 

?T( ts) ,?T(pv) .label) 
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rm(?T(mO),?T(m1),?T(a),?T(es),?T(xb),?T(s)f?T(n),?T(ss), 
x1,x2,x3,x4,x5,x6,?T(x1),?T(x2),?T(x3),?T(x4),?T(x12), 
?T( n12), label 1,label2,label3,label4,label5,label6, label, 

?T( ptO)  ,?T( ptl )  ,?T(  lr)  ,?T(k)  ,?T(  ncp)  ,?T(df)  ,?T(  to) , 

?T( tcO) ,?T( tc1),nctout,?T(x34),?T(n34),nnctr,nnctl, 
to  1 r , to  1 1 , pwrmu , pwrcd  fr , pwrcd  fl , be  tar , be  tal , twoal , 
pwrncp,?T( pwr) ,?T( b) ,?T(pw1 ) ,?T( txO),?T( txl), 

?T( ts) ,?T(pmO) ,?T( pml ) ,?T( mxO) ,?T(pv) ,?T(mx1 ) ,?T(xn) ) 
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MACRO  screen 1p(muOf mu  1 ,x1 ,x2,pm0,pm1 ,mx0,mx1 ,mx,mn,lab1 ) 

# 

#  This  macro  Is  to  plot  the  statistical  hypothesis  for 

#  unknown  sigma  on  the  first  screen. 

# 

(t 

par(mfrow=e( 1 , 1 ) ,  oma=c(5,2, 1,0)) 
plot(x1,pm0,  xlab="X",  ylab="",  type="l", 
xl  im=c(mn,mx) ,err=-1 ) 
po  ints(x2,pm1 ) 
segmen  ts ( muO , mxO , muO , 0 ) 
segments(mu1 ,mx1 ,mu1 ,0) 

title(sub="Ho  :  smooth  line  Ha  :  star  line") 
mtext( s ide=2,  line=1,  outer=T,  "PDF") 
mtext(side=3,  line=0,  outer=T, 

"Statistical  Hypothesis") 
mtext(side=1,  line=1,  outer=T,  labl) 
mtext( s ide=1 ,  line=3,  outer=T, 

"Note  :  Alternative  hypothesis  is  estimated  as  normal 
with  unknown  parameters") 

}) 

END 
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MACRO  screen23rp(ncp, tc, tcO, tel ,x3,x4,pt0,pt1 ,mxn,lr,kv, 
txO, txl ,pwrmu,pwr,pw1 ,mu1 , ts,pv,lab) 

# 

#  This  macro  is  to  plot  two  screens,  one  is  to  plot  the 

#  likelihood  ratio  and  test  of  the  statistical  hypothesis, 

#  the  other  is  to  plot  the  power  function  and  the  result  of 

#  the  statistical  test. 

#  (  Right  tail  test  for  unknown  sigma  ) 

# 

({ 

par(mfrow=c(2, 1) ,  oma=c(5,3,0,0) ) 
mx_mxn[ 1 3 
mn_mxn [ 2 ] 

maxy_max( txO,  txl) 

Plot  the  Likelihood  Function 

plot(x3,lr,  type="l",  xlab="T",  ylab="", 
err=-1 ) 

segments( tc,0, tc,kv) 

title(main="Likel  ihood  Ratio  Function",  sub=lab[4]) 

Plot  the  T  distribution  under  the  null  and  the  noncentral  T 

plot(x3,pt0,  xlab="T",  ylab="",  type="l", 

xl  im=c(mn,mx) ,  ylim=c(0,  maxy),  err=-1) 

1  ines(x4,  ptl ) 

title(main="Test  of  Statistical  Hypothesis", 
sub="Ho  :  Left  Ha  :  Right") 
mtext(  s  ide=2,  line=1,  outer=T, 

"  Lambda  PDF  ") 

3egments( 0, tx0,0,0) 
segments( ncp, txl ,ncp,0) 

Plot  the  T-critical  value 

abl  ine(  v=tc) 

Find  the  alpha  area 

al_x3tx3  >  tc] 
nal_len( al) 

al_c(tc,  al)  #  X  coordinates  for  alpha  area 
ay_p  tO [ ( 1 0 1 -n  al ) : 1 00 ] 

ay_c(tc0,  ay)  #  Y  coordinates  for  alpha  area 

# 

#  Find  the  beta  area 

# 

be_x4 [ x4  <  tc  3 
nbe_len( be) 

be_c(be,  tc)  #  X  coordinates  for  beta  area 
by_pt1 [ 1 :(max( nbe, 1 ) ) ] 

by  c(by,  tel)  #  Y  coordinates  for  beta  area 


#  Shade  the  beta  area 

4 

if(  nbe>0)  { 

hatch(c(min(x4)  ,be,  tc) ,  c(0,by,0),  spacer. 05,  angle=135,  border=F) 
} 

# 

#  Shade  the  alpha  area 

# 

hatch(c(  tc,al,max(x3) ) »  c(0,ay,0),  spacer. 05,  border=F) 
mtext( side=1 ,  linerl,  outer=T,  lab[33) 
mtext(  sider  1 ,  line=3,  outer=T,  1  ab  Cl]) 
mtext( siderl ,  line=4,  outer=T,  lab[23) 

4 

4  Third  screen 

# 

#  Plot  the  Power  Function 

# 

plot(pwrmu,pwr,  xlab="MU",  ylab="”,  type="ln,  err=-1) 
segments(mu1 ,pw1 ,mu1 ,0) 
title(main="Power  Function",  sub=lab[6J) 

# 

#  Plot  the  T  distribution  under  the  null  and  the  noncentral  T 

# 

plot(x3,pt0,  xlab="T",  ylab="",  type="l", 

xl  im=c(mn,mx) ,  ylim=c(0,  maxy),  err=-1) 
lines(x4,  ptl) 

# 

#  Plot  the  T-critical  value 

# 

abl  ine(  v=tc) 

# 

# 

4  Shade  the  beta  area 
4 

if(nbe>0)  { 

hatch(c(min(x4) ,be,tc) ,  c(0,by,0),  spacer. 05,  angler135,  borderrF) 
} 

4 

4  Shade  the  alpha  area 

4 

hatch(c( tc, al,max(x3) ) ,  c(0,ay,0),  spacer. 05,  borderrF) 

# 

#  Plot  the  T  *  value 

4 

arrows(ts,  txO/2,  ts,  0) 

title(mainr" Result  of  Statistical  Hypothesis  Test", 
subrlab[3J) 

mtext(  s  ider2 ,  linerl,  outerrT, 

"  POWER  PDF  ") 

mtext( 3 ider  1 ,  linerl,  outerrT,  1  ab [13) 
mtext(  s  ider  1 ,  liner2,  outerrT,  lab[2]) 


mtext( s ide=1 ,  line=3»  outer=T,  labL5J) 
dcs_ifelse(  ts>tc,  "Reject  Ho",  "Do  Not  Reject  Ho") 
mtext(  s  ide=1 ,  13ne=4,  outer=T, 

encode(  "Dec  is  ion  :  ",dcs,"  P-value  =",pv)) 
rm(rax,mn,maxy, al,nal, ay,be,nbe,by,dcs) 

}) 

END 


MACRO  screen231p( ncp,  tc,  tcO,  tel ,x3,x4,ptO,pt1 ,mxn, lr,kv, 
txO, txl ,pwrmu,pwr,pw1 ,mu1 , ts,pv,lab) 

t 

#  This  macro  is  to  plot  two  screens,  one  is  to  plot  the 

#  likelihood  ratio  and  test  of  the  statistical  hypothesis, 

#  the  other  is  to  plot  the  power  function  and  the  result  of 

#  the  statistical  test. 

#  (  Left  tail  test  for  unknown  sigma  ) 

# 

({ 

mx_mxn [ 1 ] 
mn  mxn[2] 

par(mfrow=c( 2, 1 ) ,  oma=c(5,3,0,0) ) 

# 

#  Plot  the  Likelihood  Function 

# 

plot(x3,lr,  type="l",  xlab="T",  ylab="", 
err=-1 ) 

segments( tc,0, tc,kv) 

title(main="Likel  ihood  Ratio  Function",  sub=lab[4]) 

# 

t  Plot  the  T  distribution  under  the  null  and  the  noncentral  T 

# 

plot(x3,pt0,  xlab="T",  ylab="",  type="l", 
xl  im=c(mn,mx) ,  err=-1) 
lines(x4,  ptl) 

title(main="Test  of  Statistical  Hypothesis", 
sub="Ho  :  Right  Ha  :  Left") 
mtext(  s  ide=2,  1  ine=  1 ,  outer=T, 

"  Lambda  PDF  ") 

segments( 0, tx0,0,0) 
segmen  ts( ncp , tx 1 , ncp , 0 ) 

# 

#  Plot  the  T-critical  value 

# 

abl  ine(  v=tc) 

# 

4  Find  the  alpha  area 

# 

al_x3tx3  <  tc] 
nal_len(  al) 

al_c(al,  tc)  #  X  coordinates  for  alpha  area 
ay_pt0[  1  :nal] 

ay  c(ay,  tcO)  #  Y  coordinates  for  alpha  area 


#  Find  the  beta  area 
9 

be_x4[x4  >  tc] 
nbe  len(be) 

be_c(tc,  be)  9  X  coordinates  for  beta  area 
by_pt1[(min(64,  (65-nbe)))  :  64] 

by)  #  Y  coordinates  for  beta  area 

9 

9  Shade  the  beta  area 

9 

if(  nbe>0)  { 

hatch(c( tc,be,max(x4) ) ,  e(0,by,0),  space=.05,  angle=135,  border=F) 

9 

9  Shade  the  alpha  area 

# 

hatch(c(min(x3) ,al,tc) ,  c(0,ay,0),  space=.05,  border=F) 
mtext(  s  ide=  1 ,  lineal,  outer=T,  1  ab  C  3  3 ) 
mtext(  s  ide=  1 ,  line=3,  outer=T,  lab[1]) 
mtext(  s  ide=  1 ,  line=4,  outer=T,  lab[2]) 

9 

9  Th ird  screen 

9 

9  Plot  the  Power  Function 

» 

plot(pwrmu,pwrt  xlab="MU",  ylab="",  type="l",  err=-D 

segmen  ts(  mu  1 ,  pw  1 ,  mu  1 , 0 ) 

title (main= "Power  Function",  sub=lab[6]) 

9 

9  Plot  the  T  distribution  under  the  null  and  the  noncentral  T 

# 

plot(x3,pt0,  xlab="T",  ylab="",  type="l", 
xl  im=c(mn,mx) ,  err=-1) 
lines(x4,  ptl) 

9 

9  Plot  the  T-critical  value 

9 

abl  ine(  v=tc) 

9 

9  Shade  the  beta  area 

# 

if( nbe>0)  ( 

hatch(c( tc,be,max(x4) ) ,  c(0,by,0),  spaces. 05,  angle=135,  border=F) 

} 

9 

9  Shade  the  alpha  area 

# 

hatch( c( m  in( x3) , al , tc) ,  c(0,ay,0),  spaces. 05,  border=F) 
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Plot  the  T  *  value 
arrowsCts,  txO/2,  ts,  0) 

title(mains"Result  of  Statistical  Hypothesis  Test", 
sub=lab[33) 


mtext(  s  lde=2. 

1  inesl , 

outersT, 

"  POWER 

PDF 

") 

mtext(  s  ide=1 , 

1  inesl , 

outersT, 

1  ab  1 1  ] ) 

mtext(  sides  1 , 

1  ines2, 

outersT, 

lab[2] ) 

mtext(  s  ides  1 , 

1  ines3 , 

outersT, 

lab[53) 

dcs  ifelse(  ts<tc,  "Reject  Ho",  "Do  Mot  Reject  Ho") 
mtext(side=1 ,  line=4,  outer=T, 

encode( "Dec  is  Ion  :  ",dcs,"  P-value  =",pv)) 
rm(  al ,  n al ,  ay ,  be ,  nbe ,  by ,  dc s ,  mx ,  mn ) 
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MACRO  screen23tp(ncp, tc, tcO, tel ,x3,x4,pt0,pt1 ,oxn, 

lr,kv, txO, txl ,pwrmu,pwr,pw1 ,mu1 , ts,pv,lab) 

# 

#  This  macro  is  to  plot  two  screens,  one  is  to  plot  the 

#  likelihood  ratio  and  test  of  the  statistical  hypothesis, 

#  the  other  is  to  plot  the  power  function  and  the  result  of 

#  the  statistical  test. 

#  (  Two  tail  test  for  unknown  sigma  ) 

# 

({ 

par(mfrow=c(2, 1 ) ,  oma=c(5,3»0,0)) 

mx  mxntl] 

mn“mxn[2] 

#  " 

#  Plot  the  Likelihood  Function 


plot(x3,lr,  type="l",  xlab="T",  ylab="", 
err=-1 ) 

segments( tc,0, tc.kv) 

t itle(main="L ikel  ihood  Ratio  Function",  sub=lab[4]) 

# 

#  Plot  the  T  distribution  under  the  null  and  the  noncentral  T 

# 

plot(x3,pt0,  xlab="T",  ylab=n",  type="l", 

xl im=c(mn,mx) ,  ylim=c(0,  max(txO,  txl)),  err=-1) 
lines(x4,  ptl ) 

title(main="Test  of  Statistical  Hypothesis", 
sub="Ho  :  Left  Ha  :  Right") 
mtext(side=2,  line=1,  outer=T, 

"  Lambda  PDF  ") 

segments(0, tx0,0,0) 
segmen  ts( ncp , tx 1 , ncp , 0 ) 

# 

#  Plot  the  T-critical  value 
abl  ine(  v=tc) 

# 

#  Find  the  alpha  area 

# 

ar_x3tx3  >  tc[1]] 
nar_len( ar) 

apr_c(  tc[  1  ] ,  ar)  #  X  coordinates  for  right  side  ofalpha  area 
al_x3tx3  <  tc [ 2 ] J 
naT_len(  al) 

apl_c(al,  tc  [  2  ] )  #  X  coordinates  for  left  side  ofalpha  area 

yr_ptO[( 101-nar) : 100] 

ayr_c(  tcOt  1  ] ,  yr)  #  Y  coordinates  for  right  side  of  alpha  are. 
yl_pt0[1 :nal] 

ayl_c(yl,  tc0[2])  #  Y  coordinates  for  left  side  of  alpha  area 
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# 

#  Find  the  beta  area 

# 

be  x4[(x4  <  tc [ 1 ] )  &  (x4  >  tc[2])] 
nbe  len(be) 
if  Tnbe  >  0)  { 
minb_min(be) 

ibe_len(?which(x4<=minb) ) 
fbe_len(be) 

bxl  max(tc[2],  min(x4)) 
bxr_max( tc[ 1 ],  min(x4)) 

be_c(bxl,  be,  bxr)  #  X  coordinates  for  beta  area 

by_pt1[(max(  1,  ibe))  :  (max(1,  (  fbe+ ibe-1 ) ) )  ] 

miny_min(pt1) 

byl_max(miny,  tc1[2]) 

byr_max(miny,  tc  1 1 1 3 ) 

by  c(byl,  by,  byr)  #  Y  coordinates  for  beta  area 

# 

#  Shade  the  beta  area 

# 

hatch(c(bxl,  be,  bxr),  c(0,by,0),  spaces. 05,  angles135,  bordersF) 

} 

# 

#  Shade  the  alpha  area 

# 

hatch(c( tc[ 1 ] , apr,max(x3) ) »  c(0,ayr,0),  spaces. 05,  bordersF) 
hatch( c(m in(x3) , apl, tc[2] ) ,  c(0,ayl,0),  spaces. 05,  bordersF) 
mtext(sides1 ,  linesl,  outersT,  labt3]) 
mtext(  3ides1 ,  lines3,  outersT,  lab[1]) 
mtext(  s  ides  1 ,  lines4,  outersT,  lab[2]) 

# 

#  This  is  the  third  screen. 

# 

#  Plot  the  Power  Function 


* 

plot(pwrmu,pwr,  xlabs"MU",  ylabs"",  types"l",  errs-1) 

segmentsCmul ,pw1 ,mu1 ,0) 

title  (mains  "Power  Function",  subslab[6]) 

# 

#  Plot  the  T  distribution  under  the  null  and  the  noncentral  T 

# 

plot(x3,pt0,  xlabs"T",  ylabs"",  types"l", 

xl  imsc(mn,mx) ,  ylimsc(0,  max( txO,  txl)),  errs-i) 
lines(x4,  p 1 1 ) 
segments(0,  txO,  0,  0) 
segments(ncp,  txl,  ncp,  0) 

# 

#  Plot  the  T -critical  value 

# 

abl  ine(  vstc) 
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#  Shade  the  beta  area 

# 

if  (nbe  >  0)  { 

hatch(c(bxl,  be,  bxr),  c(0,by,0),  spaces. 05,  angle=135>  bordersF) 
rm(minb,  ibe,  fbe,  bxl,  bxr,  rainy,  byl,  byr,  by) 

} 

# 

#  Shade  the  alpha  area 

# 

hatch(c(  tc[ 1 ] , apr,max(x3) ) ,  c(0,ayr,0),  spaces. 05,  bordersF) 
hatch(c(min(x3) , apl, tc[2]) ,  c(0,ayl,0),  spaces. 05,  bordersF) 

# 

#  Plot  the  T  *  value 

# 

arrows(ts,  tx0/2,  ts,  0) 

t  itle(mains"Result  of  Statistical  Hypothesis  Test", 
subslab[3l) 

mtext( s ides2,  lines'!,  outersT, 

"  POWER  PDF  ") 

mtext(  sidesl ,  lines'!,  outersT,  labtl]) 
mtext( s ides  1 ,  lines2,  outersT,  lab[2]) 
ratext( s ides  1 ,  lines3,  outersT,  labt53) 

dcs_ ifelse(  abs(  ts)  >  abs(tc[1]),  "Reject  Ho",  "Do  Not  Reject  Ho") 
mtext(  s  idesl ,  lines4,  outersT, 

encoded "Dec  is  ion  :  ",dcs,"  P-value  =",pv)) 
rm( mx, ran, al, ar, apl, apr,nal,nar,yr,yl, ayr, ayl,be,nbe,dcs) 


MACRO  power 

({ 

item_c( "Get  the  vaule  of  power”, 

"Get  the  power  function  curve") 
action  c("?pwrone", 

"?pwrtwo") 
menu(  item,  action) 
rm(  item,  action) 


MACRO  pwrone 
(t 

item_c(  "Right  tail  test", 
"Left  tail  test", 
"Two  tail  test") 
action_c( "?pwr1", 
"?pwr2", 
"?pwr3") 

menu(  item,  action) 
rm(  item,  action) 

}) 

END 


MACRO  pwr1( 

mO/?PROMPT(MUo 

:  )/, 

m1/?PR0MPT(MU1 

:  )/, 

sg/?PROMPT( Sigma 

:  )/, 

nn/?PROMPT( Sample  Size 

:  )/, 

al/?PROMPT( Alpha 

:  )/) 

chapter 

?T(mO)_mO 
?T(m1)_m1 
?T(s)  sg 
?T(  n)~nn 
?T(a)  al 

?T( ssT  ?T( s)/sqrt(?T(n) ) 
ncp_(?T(m1 )-?T(mO) )/?T(ss) 
dof_?T(n)-1 

qtl_qt(  ( 1-?T(  a) ) ,  dof) 

?T  1-nctp(ncp,  dof,  qtl) 

rmT?T(mO) ,  ?T(m1),  ?T(s),  ?T(n),  ?T(a),  ?T(ss), 
ncp,  dof,  qtl,  ?T,  value=?T) 


MACRO  pwr2( 

mO/?PROMPT(MUo  :  )/, 
o1/?PROMPT(MU1  :  )/, 
sg/?PROMPT( Sigma  :  )/, 
nn/?PR0MPT( Sample  Size  :  )/, 
al/?PROMPT( Alpha  :  )/) 


chapter 

({ 

?T(mO)  mO 
?T(m1 )~m1 
?T(s)_sg 
?T(n)_nn 
?T(  a)"al 

?T( ssT  ?T( s)/sqrt( ?T( n) ) 
ncp_(?T(m1 )-?T(mO) )/?T( ss) 
do  f_?T(  n)  -1 
qtl_qt(?T(  a) ,  dof) 

?T  nctp(ncp,  dof,  qtl) 

rmT?T(mO) ,?T( ml ) ,?T( s) ,?T( n) ,?T(  a) ,?T(  ss) ,ncp,dof 
qtl,  ?T,  value=?T) 

}) 

END 


MACRO  pwr3( 

mO/?PROMPT(MUo 

:  )/, 

m1/?PR0MPT( MU1 

:  )/, 

^/?PROMPT(  Sigma 

:  )/, 

nn/?PROMPT( Sample  Size 

:  )/, 

al/?PROMPT( Alpha 

:  )/) 

chapter 

(t 

?T(mO)_mO 
?T( ml )_m1 
?T( s)_sg 
?T(n)_nn 
?T(  a)  al 

?T( ssT_?T( 3)/aqrt(?T(  n) ) 
ncp_(?T(m1 )-?T(mO) )/?T(  3s) 
dof_?T(  n)-1 

qtl_qt(  c(  (  1  -( ?T(  a)/2)),?T(a)/2),  dof) 
cdfr_nctp(ncp,  dof,  q tl Cl]) 
cdfl_nctp(ncp,  dof,  qtl[2]) 

?T  1  -cd  fr+cd  fl 

rmT?T( mO) ,  ?T(m1),  ?T(s),  ?T(n),  ?T( a) ,  ?T(ss), 
ncp,  dof,  qtl,  cdfr,  cdfl,  ?T,  value=?T) 


MACRO  pwrtwo 

({ 

item  c( "Right  tail  test", 
"Left  tail  test", 
"Two  tail  test") 
action  c("?pwra", 

~  "?pwrb", 
"?pwrc") 

menu(  item,  action) 
rm(  item,  action) 

}) 

END 


MACRO  pwra( 

mO/?PROMPT( MUo  :  )/, 

sg/?PROMPT( Sigma  :  )/, 

nn/?PROMPT( Sample  Size  :  )/, 

al/?PROMPT( Alpha  :  )/, 

mn/?PROMPT(Min  MU1  for  Plot  :  )/, 
mx/? PROMPT (Max  MU1  for  Plot  :  )/) 
chapter 
({ 

par(mfhow=c( 1 , 1 ) ,  oma=c( 4, 2, 0,0) ) 

?T(m0)_m0 
?T(s)_sg 
?T(n)_nn 
?T(  a)  al 

?T(ml7_seq(mn,  mx,  len=51) 

?T( ss)_?T( s)/sqrt(?T(n) ) 
ncp_(?T(m1 )-?T(mO) )/?T(ss) 
dof_?T(n)-1 

qtl_qt(  ( 1-?T(  a) ) ,  dof) 

?T(y)_1-nctp(ncp,  dof,  qtl) 
plot(?T(m1),  ?T(y) ,  xlab="MU",  ylab="", 
type="l",  err=-1 ) 

title(main="Power  Function  for  Right  Tail  Test") 
mtext(  s  ide=  1 ,  lines'!,  outer=T, 

encode("MUo  :",?T(mO),"  Alpha  :",?T(a))) 
mtext(  s  ide=1 ,  line=3,  outer=T, 

encode(  "Sample  size  :",?T(n),"  Sigma  :",?T(s))) 
rm(?T(mO) ,  ?T(m1),  ?T(s),  ?T(n),  ?T( a) ,  ?T(ss), 
ncp,  dof,  qtl,  ?T(y)) 

1) 

END 


MACRO  pwrb( 

mO/?PROMPT( MUo  :  )/, 

sg/?PROMPT( S igma  :  )/, 

nn/?PROMPT( Sample  Size  :  )/, 

al/?PROMPT( Alpha  :  )/, 

mn/? PROMPT ( M in  MU1  for  Plot  :  )/, 
mx/?PROMPT(Max  MU1  for  Plot  :  )/) 
chapter 
({ 

par(mfrow=c( 1 , 1 ) ,  oma=c( 4, 2, 0,0) ) 

?T(m0)_m0 
?T( s)_sg 
?T(n)_nn 
?T(  a)  al 

?T(mlT  seq(mn,  mx,  len=51) 

?T( ss)~?T( s)/sqrt(?T(n) ) 
ncp_(?T(m1)-?T(m0))/?T(ss) 
dof_?T(n)-1 
qtl_qt(  ?T(  a) ,  dof) 

?T(y)_nctp(ncp,  dof,  qtl) 
plot(?T(m1 ) ,  ?T(y) ,  xlab="MU",  ylab=nn, 
type="l",  err=-1 ) 

title(main=  "Power  Function  for  Left  tail  Test") 
mtext(  side=  1 ,  line=1,  outerrT, 

encode( "MUo  :",?T(mO),"  Alpha  :",?T(a))) 
mtext(  siderl ,  liner3,  outerrT, 

encode( "Sample  size  :",?T(n),"  Sigma  :",?T(s))) 
rm(?T(mO) ,  ?T(m1),  ?T(s),  ?T(n),  ?T(a),  ?T(ss), 
ncp,  dof,  qtl,  ?T(y)) 


MACRO  pwrc( 

mO/?PROMPT(MUo  :  )/, 
sg/? PROMPT( S igma  :  )/, 
nn/?PROMPT( Sample  Size  :  )/, 
al/?PR0MPT( Alpha  :  )/, 


mn/?PROMPT(Min  MU1  for  Plot  :  )/, 
mx/?PROMPT(Max  MU1  for  Plot  :  )/) 
chapter 
({ 

par(mfrow=c(  1 , 1 ) ,  oma=c( 4, 2, 0,0) ) 

?T(raO)_mO 
?T(s)_sg 
?T(  n)_nn 
?T(  a)  al 

?T(mlT_seq(mn,  mx,  len=51) 

?T( ss)_?T( s)/sqrt(?T(n) ) 
ncp  (?T(m1)-?T(m0))/?T(ss) 
dof_?T(n)-1 

qtl_qt(c(((  1-?T(a))/2),?T(a)/2),  dof) 
?T(yr)_nctp(ncp,  dof,  qtl[  13) 

?T(yl)_nctp(ncp,  dof,  qtl[2j) 

?T(y)_1-?T(yr)+?T(yl) 
plot( ?T( ml ) ,  ?T(y) ,  xlab="MU",  ylab="n, 
type="l",  err=-1) 

t itle(main="Power  Function  for  Two  Tall  Test") 
mtext(  a  lde=1 ,  llne=1,  outer=T, 

encode( "MUo  :",?T(mO),"  Alpha  :",?T(a))) 
mtext(  s  Ider  1 ,  line=3»  outer=T, 

encode( "Sample  size  :",?T(n),"  Sigma  :",?T(s))) 
rm( ?T( mO) ,  ?T(m1),  ?T(s),  ?T(n),  ?T( a) ,  ?T(ss), 
ncp,  dof,  qtl ,  ?T(y)  ,?T(yl)  ,?T(yr) ) 
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Subroutine  nctden:  FORTRAN  program  for 

Func t ion  net  . 

Function  netp:  S  Interface  Routine  Computing  CDF  of 
Non-Central  T  Distribution  . 

Subroutine  nctsub:  FORTRAN  program  for 

Func  t  ion  nc  tp  . 
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FUNCTION  bvnorm( 

mu  1/ REAL/ 

s  igmal/REAL/ 

mu2/REAL/ 

s  igma2/REAL/ 

rho/REAL/ 

interv/INT/ 

zval/REAL/ 

) 

STRUCTURE( 

bvcdf/REAL,  interv/ 

) 

call  bvnormf(mu1  ,s  igmal  ,mu2,s  igma2,rho,  interv , zv al ,bvcd  f) 
RETURN(bvcdf) 

END 
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subrout  ine  bvnormf(  mu  1 ,  s  igmal  ,mu2 ,  s  igma2 ,  rho ,  interv ,  zval  ,  bvcd  f) 


c 

c  PROGRAM  DESCRIPTION: 
c 

c  This  program  computes  the  AREA  of  a  BIVARIATE  NORMAL 
c  DISTRIBUTION  with  means:  mul  and  mu2,  standard  deviation:  sigmal 
c  and  sigma  2  with  corrlation  rho.  It  uses  the  IMSL  routine 
c  "dbl  in"  which  is  designed  to  perform  a  double  integration 
c  of  the  two  variable  function  F(X,Y). 
c 
c 

c 

integer  m,  interv,  ier 
real  bvcd  ft  interv) ,  aerr, error, dbl  in 
c 

external  f1,ay,by 
c 

real  xl,xh,zlow,zhigh,zval(  interv+1) 
real  mul  ,mu2, sigmal  ,sigma2, rho 
real  mux,muy,sigmax,sigmay,ro 
common  /bounds/  zlow,zhigh 
common  /param/  mux,muy,sigmax,s  igmay,ro 
c 

c  ==================================================== 

c 

aerr  =  0.01 
mux  =  mul 
muy  =  mu2 
sigmax  =  sigmal 
s  igmay  =  3  igma2 
ro  =  rho 

xl  =  mul  -  6*s igmal 
xh  =  mul  +  6*s  igmal 
c 
c 

do  10  m  =  1 ,  interv 
c 

c  ========================================================== 

c 

c  Here  we  have  to  set  the  minimum  and  maximum  values  of 
c  the  inner  integral,  place  the  values  in  common,  and  then 
c  call  "dbl  in". .  .We  note  it  uses  two  external  functions, 
c  "ay"  and  "by"  which  can  be  used  to  allow  integration 
c  of  limits  in  terms  of  the  outer  var  iable. .  .Here,  the 
c  limits  are  (LOWER  LIMIT  =  zs  -  x) 

c  (UPPER  LIMIT  =  ze  -  x), 

c  where  zs  =  zstart  +  zinc  *  (  i  -  1  ) 

c  ze  =  zstart  ♦  zinc  *  i 

c  And  the  outer  limit  can  be  set  up  followings  ; 
c  LOWER  LIMIT  =  mul  -  6  *  sigmal 
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c  UPPER  LIMIT  =  mul  +  6  *  s  igmal 


zlow  =  zval(m) 
zhigh  =  zval(m+1 ) 

bvcd f(m)=dbl  in(  fl  ,xl,xh,ay  ,by  ,aerr, error,  ier) 
continue 
return 
end 


real  function  f1(x,y) 

This  flinction  is  used  by  IMSL  routine  dbl  in  to  compute 
the  AREA  under  the  bivariate  normal  distribution. 

real  x,y,a,b,c,k1 ,k2 

real  mux.muy  ,s  igmax,  s  igmay , ro 

common  /param/  mux, muy,sigm ax, s  igmay, ro 

real  pi 

pi  =  3- 1415927 

kl  =  1/(2*p  i*s  igmax*s  igmay*sqrt(  1-ro**2) ) 

a  =  ( (x-mux)**2)/s  igmax**2 

b  =  2*ro*((x-mux)/sigmax)*((y-muy)/sigmay) 

c  =  ( (y-muy)**2)/sigmay**2 

k2  =  -( 1/2.0)*( 1/( 1 -ro**2) ) 

fl  =  k1*exp(k2*( a-b+c) ) 

return 

end 


real  function  ay(x) 

This  function  computes  the  lower  limit  of  the  inner 
integral  of  the  bivariate  normal  density 

real  zlow, zhigh 
common  /bounds/  zlow,  zhigh 
ay  =  zlow  -  x 
return 


real  function  by(x) 


c 

c  This  functions  computes  the  upper  limit  of  the 
c  inner  integral  of  the  bivariate  normal  density 
c 

real  zlow,zhigh 
common  /bounds/  zlow,zhigh 
by  =  zhigh  -  x 
return 
end 
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subroutine  bvnorm2f(mu1,sigma1,mu2,sigma2,rho,  interv,zval,bvcdf) 


c  PROGRAM  DESCRIPTION: 
c 

c  This  program  computes  the  AREA  of  a  BIVARIATE  NORMAL 
c  DISTRIBUTION  with  means:  mul  and  mu2,  standard  deviation:  sigma! 
c  and  sigma  2  with  corrlation  rho.  It  uses  the  IMSL  routine 
c  "dbl  in"  which  is  designed  to  perform  a  double  integration 
c  of  the  two  variable  function  F(X,Y). 
c  Transform  :  Z  =  X“2  +  Y/'2 


integer  m,  interv,  ier 

real  bvcdft  interv+1 ) ,  aerr, error, dbl  in 

external  f1,ay,by 

real  xl,xh,zval( interv+1 ) ,z 
real  mul  ,mu2,sigma1  ,sigma2,rho 
real  mux,muy,sigmax,s  igmay,ro 
common  /bounds/  z 

common  /param/  mux,muy,sigmax,sigmay,ro 


do  10  m  =  1,(  interv+1) 


c  Here  we  have  to  set  the  minimum  and  maximum  values  of 
c  the  inner  integral,  place  the  values  in  common,  and  then 
c  call  "dbl  in" ..  .We  note  it  uses  two  external  functions, 
c  "ay"  and  "by"  which  can  be  used  to  allow  integration 
c  of  limits  in  terms  of  the  outer  var  iable. .  .Here,  the 
c  limits  are  (LOWER  LIMIT  =  sqrt(z  -  x~2) 
c  (UPPER  LIMIT  =  sqrt( z  -  x"2), 

c  And  the  outer  limit  can  be  set  up  followings  ; 
c  LOWER  LIMIT  =  sqrt(z) 
c  UPPER  LIMIT  =  -sqrt(z) 


c  This  function  will  return  the  cd  f  for  the  circle 


c  whose  radius  is  sqrt(z).  Therefore,  to  get  the  volumn 
c  under  the  ring  shape,  the  previous  voulmun  should  be 
c  subtracted.  It  will  be  done  in  S  program, 
c 

c 

z  =  zval(m) 
xh  =  sqrt(z) 
xl  =  -xh 

bvcdf(m)  =  dbl  in(  fl  ,xl,xh, ay, by ,  aerr, error,  ier) 
10  continue 

return 
end 
c 

c 

real  function  f1(x,y) 
c 

c  This  function  is  used  by  IMSL  routine  dbl  in  to  compute 
c  the  AREA  under  the  bivariate  normal  distribution, 
c 

real  x,y, a,b,c,k1 ,k2 
c 

real  mux.muy , s  igmax,s  igmay ,ro 
common  /param/  mux, muy,sigoax,s igmay, ro 
c 

real  pi 
pi  =  3.1415927 
c 

kl  s  1  / ( 2*p  i*s  igmax*s  igmay*sqrt(  1-ro**2) ) 
a  =  ( (x-mux)**2)/s  igmax**2 
b  =  2*ro*((x-mux)/sigmax)*((y-muy)/sigmay) 
c  =  ( (y-muy)**2)/s  igmay**2 
k2  =  -( 1/2.0)«( 1/( 1-ro**2)) 
fl  =  k1*exp(k2*( a-b+c) ) 
return 
end 
c 

C  . . . 

C 

real  function  ay(x) 
c 

c  This  function  computes  the  lower  limit  of  the  inner 
c  integral  of  the  bivariate  normal  density 
c 

real  z,x 

common  /bounds/  z 
ay  =  -sqrt(z  -  x**2) 
return 
end 
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real  function  by(x) 
c 

c  This  /Unctions  computes  the  upper  limit  of  the 
c  inner  integral  of  the  bivariate  normal  density 
c 

real  z,x 

common  /bounds/  z 

by  =  sqrt(z  -  x**2) 
return 
end 


FUNCTION  bvun if( 

interv/INT/ 

zval/REAL/ 

) 

STRUCTURE( 

bvcdf/REAL,  interv/ 

) 

call  bvunifft  interv, zval,bvcdf) 
RETURN(bvcdf) 

END 
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subroutine  bvunifft  interv,zval,bvcd f) 


5 _ 


c  PROGRAM  DESCRIPTION: 
c 

c  This  program  computer  the  AREA  of  a  BIVARIATE  UNIFORM 
c  DISTRIBUTION  which  distributes  from  0  to  1 ,  and  the  transform 
c  Is  z  =  x  +  y. 

c  It  uses  the  IMSL  routine  "dbl  In"  which  Is  designed  to 
c  perform  a  double  Integration  of  the  two  variable  function  F(X,Y) 


v,v 

m 


Integer  m,  interv,  ier 

real  bvcdft  interv)  ,zval(  interv+1 )  ,cdtot,cdsub 
real  aerr, error, dbl  In 

external  fl ,  ay  1 ,  ay2  ,by  1  ,by2 

real  z,xhi,xh 
common  /bounds/  z 


do  10m=  1 ,  Interv 


i 


c  Here  we  have  to  set  the  minimum  and  maximum  values  of 
c  the  Inner  Integral,  which  Is  defined  ayl,  ay2,  and  by1,by2  and  then 
c  call  "dbl  In"... We  note  it  uses  four  external  functions, 
c  "ayl",  "ay2",  and  "byl"  "by2"  which  can  be  used  to  allow  intergrat ion 
c  of  limits  In  terms  of  the  outer  var  iable. .  .Here,  the 
c  ayl  :  lower  limit  for  total  area  (  s  0  ) 

c  ay 2  :  lower  limit  for  subtracting  part  (  s  1  ) 

c  byl  :  upper  limit  for  total  area  (  s  z  -  x  ) 

c  by2  :  upper  limit  for  subtracting  part 

c  by2  s  1  if  z  <s  1  or  by2  =  z-x  if  z  >  1 

c 

c  To  compute  the  cd  f  which  distributed  un iform(0, 1 ) , 
c  first  the  area  under  the  ysz-x  Is  computed, 
c  then,  if  the  z  >  1,  the  area  of  out  side  of  the  square 
c  is  computed  and  subtracted  fhom  the  area  under  ysz-x. 


zval(m+1 ) 

=  m  in  (  1 ,  z  ) 
s  max  (  0,  z-1  ) 
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cdtot  =  dbl  in(  fl  ,0,xhi, ayl  ,by1  ,aerr, error,  ier) 
cdsub  =  dbl  in(  fl  ,0,xh  , ay2,by2, aerr, error, ier) 
bvcdf(m)=  cdtot  -  cdsub 
cont  inue 
return 
end 


c 

real  function  f1(x,y) 
c 

c  This  function  is  used  by  IMSL  routine  dbl  in  to  compute 
c  the  AREA  under  the  bivariate  uniform  distribution, 
c 
c 

fl  =  1.0 

return 

end 


real  function  ayl(x) 


c 

c  This  function  computes  the  lower  limit  of  the  inner 
c  integral  of  area  under  y=z-x . 
c 

ayl  =  0 
return 
end 


c 

c 

c 

c 


real  function  ay2(x) 


c 

c  This  function  computes  the  lower  limit  of  the  inner 
c  integral  of  the  out  side  of  the  area  under  y=z-x 
c 

ay2  =  1 
return 
end 


c 

c 

c 

c 

c 

c 

c 


real  function  byl(x) 


c  This  functions  computes  the  upper  limit  of  the 
c  inner  integral  of  the  area  under  y=z-x 
c 

real  z,x 

common  /bounds/  z 
by  1  =  z  -  x 
return 
end 
c 

c  ============================================== 

c  ============================================== 

c 
c 
c 

real  function  by2(x) 
c 

c  This  functions  computes  the  upper  limit  of  the 
c  inner  integral  of  out  side  of  the  area  under  y=z 
c 

real  z,x 

common  /bounds/  z 
if  (z  .LE.  1)  then 
by2  =  1 

else 

by2  =  z-x 
end  if 
return 
end 
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c  PROGRAM  DESCRIPTION: 
c 

c  This  program  computes  the  AREA  of  a  BIVARIATE  UNIFORM 
c  DISTRIBUTION  which  distributes  from  0  to  1,  and  the  transform 
c  is  z  =  x**2  +  y**2. 

c  It  uses  the  IMSL  routine  "dblin"  which  is  designed  to 
c  perform  a  double  integration  of  the  two  variable  flmction  F(X,Y), 


*  *. 


cdtot  =  dbl  in(  f1,0,xhi,ay1, by1,aerr, error,  ier) 
cdsub  =  dbl  in(  fl  ,0,xh  , ay2,by2,aerr,error,  ier) 
bvcdf(m)  =  cdtot  -  cdsub 
continue 
return 
end 


real  function  f1(x,y) 

This  function  is  used  by  IMSL  routine  dbl  in  to  compute 
the  AREA  under  the  bivariate  normal  distribution. 


fl  =  1.0 

return 

end 


real  function  ayl(x) 

This  function  computes  the  lower  limit  of  the  inner 
integral  of  quarter  circle. 

ay  1  =  0 
re  turn 
end 


real  function  ay2(x) 

This  function  computes  the  lower  limit  of  the  inner 
integral  of  the  out  side  of  the  quarter  circle. 

ay  2  =  1 
return 
end 


real  function  byl(x) 


FUNCTION  bvchisqC 
dfl/REAL/ 
df2/REAL/ 
interv/INT/ 
garni /REAL/ 
gam2/REAL/ 
yhl/REAL/ 
zval/REAL/ 

) 

STRUCTURE( 

bvcdf/REAL,  interv/ 

) 

call  bvchisqfldfl  ,df2,  interv, garni  ,gam2,yhi,zval,bvcdf) 
RETURN(bvcdf) 


ill 
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subroutine  ovchisqfTdfl  ,df2,  in terv, garni  ,gam2,yhi,zval,bvcdf) 
c 

c  PROGRAM  DESCRIPTION: 

This  program  computes  the  AREA  of  a  BIVARIATE  CHISQUARE 
c  DISTRIBUTION  with  degree  of  freedom  :  d  f  1  and  df2. 
c  It  uses  the  IMSL  routine  "dbl  in"  which  is  designed  to 
c  perform  a  double  integration  of  the  two  variable  function  F(X,Y). 
c  The  transform  is  :  Z  =  (X/DFx)  /  (Y/DFy). 
c 

C  ========================================================: 

C 

integer  m,  interv,  ier 
real  bvcd  f(  interv) ,  aerr, error, dbl  in 
c 

external  f1,ax,bx 
c 

real  yhi,zlow,zhigh,zval(  interv+1 ) 
real  df1,df2,dfx,dfy, garni  ,gam2,gamx,gamy,dfr 
common  /bounds/  zlow, zh  igh, d  fr 
common  /param/  d  fx,d  fy,gamx,gamy 
c 

c  ==================================================== 

c 

aerr  =  0.01 
df*  =  dfl 
dfV  =  df2 
d  fr  =  dfx/dfy 
gamx  =  garni 
gamy  =  gam2 
c 
c 

do  10  m  =  1 ,  interv 
c 

c  ======================================================== 

c 

c  Here  we  have  to  set  the  minimum  and  maximum  values  of 
c  the  inner  integral,  place  the  values  in  common,  and  then 
c  call  "dbl  in"... We  note  it  uses  two  external  functions, 
c  "ax"  and  "bx"  which  can  be  used  to  allow  integration 
c  of  limits  in  terms  of  the  outer  var  iable. .  .Here,  the 
c  limits  are  (LOWER  LIMIT  =  zs  *  y  »  DFx/DFy ) 

c  (UPPER  LIMIT  =  ze  «  y  «  DFx/DFy ) 

c  where  zs  =  zstart  +  zinc  *  (  i  -  1  ) 

c  ze  =  zstart  +•  zinc  *  i 

c  And  the  outer  limit  can  be  set  up  followings  ; 
c  LOWER  LIMIT  =  0 
c  UPPER  LIMIT  =  qchisq( ,9999,dfV) 


zlow  =  zval(m) 
zhigh  =  zval(m+1) 

bvcdf(m)=dbl  in(  fl  ,0,yh  i,  ax, bx,  aerr, error,  ier) 
10  continue 

re  turn 
end 
c 

c 

real  function  f1(y,x) 
c 

c  This  function  is  used  by  IMSL  routine  dbl  in  to  compute 
c  the  AREA  under  the  bivariate  chisquare  d  is  tr  ibu  t  ion . 
c 

real  x,y, al , a2,b1 , b2 ,k1 ,k2 
c 

real  dfx,dfy,gamx,gamy 
common  /param/  dflc,dfy,gamx,gamy 
c 

kl  =  1/(  ( 2**( d  fk/2) )*gamx) 

k2  =  1/( (2*«(dfy/2) )*gamy) 

al  =  x**(  (dfx/2)-1 ) 

a2  =  y**( (dfy/2)-1 ) 

bl  =  exp(-x/2) 

b2  =  exp(-y/2) 

fl  s  k1»k2*a1*a2*b1*b2 

return 

end 


c 


real  function  ax(y) 


c 

c  This  function  computes  the  lower  limit  of  the  inner 
c  integral  of  the  bivariate  chisquare  density 
c 

real  zlow,zh igh,y,d fr 
common  /bounds/  zlow,zh  igh,d  fr 
ax  =  zlow  *  y  *  d  fi¬ 
re  turn 
end 
c 

c 

c 

real  function  bx(y) 
c 

c  This  functions  computes  the  upper  limit  of  the 
c  inner  integral  of  the  bivariate  chisquare  density 


FUNCTION  bvnandcC 
df/REAL/ 
interv/INT/ 
gam/ REAL/ 
yhi/REAL/ 
zval/REAL/ 

) 

STRUCTURE( 

bvcdf/REAL,  interv/ 

) 

call  bvncf(df,  interv,gam,yhi,zval,bvcdf) 
RETURN(bvcdf) 


subroutine  bvncfXdf,  interv,gam,yhi,zval,bvcdf) 
c 


c  PROGRAM  DESCRIPTION: 
c 

c  This  program  computes  the  AREA  of  a  BIVARIATE  of  Normal  (0,1) 
c  and  Chisquare  with  DF. 

c  It  uses  the  IMSL  routine  "dbl  in"  which  is  designed  to 
c  perform  a  double  integration  of  the  two  variable  function  F(X,Y). 
c  The  transform  is  :  Z  =  X  /  Y, 
c  where,  X  :  Normal  variable  N  (0,1) 

c  Y  :  Sqrt(  Y‘  /  n  ) 

c  Y*  :  Chisquare  variable  with  n  DF 

c 


c  Here  we  have  to  set  the  minimum  and  maximum  values  of 
c  the  inner  integral,  place  the  values  in  common,  and  then 
c  call  "dbl  in"... We  note  it  uses  two  external  functions, 
c  "ax"  and  "bx"  which  can  be  used  to  allow  integration 
c  of  limits  in  terms  of  the  outer  var iable. . .Here,  the 
c  limits  are  LOWER  LIMIT  =  zs  *  SQRT(  y  /  DFy ) 

c  UPPER  LIMIT  =  ze  «  SQRT(  y  /  DFy) 

c  where  zs  =  zstart  +  zinc  •  (  m  -  1  ) 

c  ze  =  zstart  +  zinc  *  m 

c  And  the  outer  limit  can  be  set  up  followings  ; 
c  LOWER  LIMIT  =  0 
c  UPPER  LIMIT  =  qchisq( .9999, dfy) 


zhigh  =  zval(m+1) 

bvcdf(m)=dbl  in(  fl  ,0,yhi, ax, bx,aerr, error,  ier) 
continue 
return 
end 


common  /bounds/  zlow,zhigh 
common  /par am/  dfy,gamy 

bx  =  zhigh  *  sqrt(  y  /  dfy  ) 
return 


FUNCTION  nct( 

ncp  /REAL/ 
df  /REAL/ 
splits  /REAL/ 

) 

STATIC( integer  leng) 
leng  =  2**  splits 
STRUCTURE  ( 

ord  /REAL, leng/ 
density  /REAL, leng/ 
qtl  /REAL, leng/ 
cdf  /REAL, leng/ 

) 

call  nctden(ncp,df,spl  its, ord, dens  ity,qtl,cd  f,LENGTH(  ord) ) 
RETURN  (ord, density, qtl, cdf) 


subroutine  nctden(ncp,df,spl  its, ord, dens  ity,qtl,cdf,m) 


This  subroutine  computes  the  density  of  the  noncentral 
t  distribution  and  the  CDF  of  the  same  density 
by  computing  cdf  values  for  the  endpoints  of  an 
interval  {t,t+dt},  and  then  dividing  by  dt  to  obtain 
the  approximate  height  of  the  density  at  (t+dt/2) 

Note:  One  can  obtain  a  better  approximation  for  the 
density  by  ask  inf  for  more  splits  when  calling 
the  S  function:  net  CAUTION:  The  resolution  of 
the  plotting  device  should  always  be  considered 
since  the  total  number  of  ordinal  values:  2~splits  +  1 
should  not  exceed  the  number  of  character  positions 
of  the  plotting  device 

Note:  The  NONCENTRALITY  PARAMETER  should  be  computed 
before  calling  the  S  function  "net"  ...  it  is 
equal  to:  (mu1-mu0)/( s/sqrt(n) ) 


integer  ier,nord,degf,m 

real  ncp,df,spl its,ord(m) ,dens ity(m) , tprobl , tprob2 
real  qtl(m)  ,cdf(m) 

Compute  the  number  of  lower  bound  ord  in ate  values 

degf=  df 

nord  =  2**  splits 

Compute  the  length  of  each  interval  between  equally 
spaced  ordinate  values 

dt  =  ((ncp+4)  -  (ncp-4) )/nord 

Set  the  lower  and  upper  bound  of  the  first  interval 

tl  =  nep  -  4 
t2  =  tl  +  dt 


Compute  the  CDF  values  of  each  boundary  value  and 
compute  the  height  of  the  density.  Store  this  value  and 
the  cumulative  probability  of  the  upper  bound  of 
the  interval  under  consideration 

do  10  j  =  1,nord 

call  mdtn(  tl  ,degf,ncp,  tprobl ,  ier) 
call  mdtn(  t2,degf,ncp,  tprob2,  ier) 


Set  the  values  for  the  approximate  density 


ord(j)  is  the  ordinal  value 

density(j)  is  the  height  of  the  density  at  ord(j) 

ord(j)  =  (t1  +  t2)/2 

density(j)  =  ( tprob2-tprob1)/dt 

Set  the  values  for  the  CDF  of  the  Noncentral  t 
qtl(j)  is  the  quantile  value 
cdftj)  is  the  Probability  of  t  <=  qtl(j) 

qtl(j)  =  t2 
cdftj)  =  tprob2 

Set  the  lower  and  upper  bound  of  the  next  interval 
for  which  computation  is  required 

tl  =  t2 

t2  =  (ncp-4)  +  (j+1)*dt 


continue 

return 

end 


A  VWA  V 


FUNCTION  nctp( 

ncp  /REAL/ 
df  /REAL/ 
qtl  /REAL/ 

) 

STRUCTURE  ( 

cdf  /LIKE(ncp)/ 

) 

call  nctsub(ncp,df,qtl,cdf,LENGTH(ncp) ) 
RETURN  (cdf) 

END 


subrout ine  nctsub( ncp,d  f,qtl ,ed f,m) 


c  This  subroutine  computes  the  cdf  of  the  noncentral 
c  t  d  istr  ibution. 
c 

c  Note:  The  NONCENTRALITY  PARAMETER  should  be  computed 
c  before  calling  the  S  function  "nest"  ...  it  is 

c  equal  to:  (mu1-muQ)/( s/sqrt(n) ) 


f  - 


s  s  s  v  v 

»  «  M  1  A  J 
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